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C1 in ot 
1.0 GENERAL INFORMATION 
escceusucocoesesces SEQ 0002 


1.1 PROGRAM ABSTRACT 


t. 1.1 STRUCTURE OF PROGRAM 


THIS DIAGNOSTIC ere 14. 5K WORDS OF MEMORY AND IS COMPATIBLE WITH 

BOTH XXDP AND ACT. T CAN BE RUN STANDALONE UNDER XXDP, AND CAN BE CHAINED 
UNDER XXDP, ACT AND APT IN ACT MODE (SEE “CREATE CORE IMAGE” COMMAND 

BELOW FOR DETAILS OF CHAINING PROCEDURE). IT 1S A SINGLE PROGRAM 

FROM THE STANDPOINT OF THE DIAGNOSTIC USER. BUT WE HAVE INCORPORATED iNTO 
1T A CONTROL MODULE WHICH WILL LATER BE RELEASED INDEPENDENTLY AS A 
DIAGNOSTIC SUPERVISOR. 


WHEN THIS DIAGNOSTIC 1S STARTED AT ADDRESS 200. CONTROL GOES 

FIRST TO THE SUPERVISOR PORTION, WHICH Witl ASK CERTAIN "HARD CORE” 
QUESTIONS ABOUT THE ENVIRONMENT. THEN IT WILL ENTER COMMAND 

MODE, INDICATED BY A PROMPT CHARACTER (DS A>). AT COMMAND MODE THE OPERATOR 
NAY ENTER ANY OF SEVERAL COMMANDS AS DESCRIBED BELON. 


THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING. 
‘BUT THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL DISTRIBUTION 
A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE OF THE SUPERVISOR 
ASSEMBLY LISTING. AND IT MAY BE CONSULTED IN EVENT OF A SOFTWARE PROBLEM 


1.1.2 DIAGNOSTIC INFORMATION 


THE RLOI/RLV11 RLOI EXERCISER 1S A POP-11 (LSI-11) BASED PROGRAM 
1T WILL RANDOMLY EXERCISE UP TG 2 CONTROLLERS AND 8 DRIVES. AFTER 
AN INITIAL WRITE OF EACH RLO1., THE DRIVES ARE RANDOMLY PICKED AND 
GIVEN A RANDOM FUNCTION OF SEEK, GET STATUS. READ HEADER. READ OR 
WRITE. 


1.2 SYSTEM REQUIREMENTS 


POP-11/LS1-11 PROCESSOR WITH 16K OR MORE OF CORE 
CONSOLE DEVICE (LA30,LA36. VTSC-ETC. ) 

RL11/RLV11 CONTROLLER(S) 

1 - 8 RLO1 DRIVES 

1 - 8 RLOIK CARTRIDGES WITH BAD SECTOR FILE 
KW11P, KW11L (OPTIONAL) 

LINEPRINTERCOPTIGNAL } 


1.2.2 SOFTWARE REQUIREMENTS 


MAINDEC-11-DZRLE-A 


1.3 RELATED DOCUMENTS AND STANDARDS 





‘a ens 


RLO1 USERS MANUAL (EK-RLO1-UG-PRE) SEQ 0003 
X¥DP USERS MANUAL 
DIAGNOSTIC SUPERVISOR PROGRAM LISTING 


1.4 OLAGNOSTIC HIERARCHY PREREQUISITES 


THE RLO1 SUBSYSTEM SHOULD HAVE SUCCESSFULLY RUN THE FOLLOWING 
PROGRANS: 


MD-11-DZRLA RL11/RLV11 RLO1 CONTROLLER TEST (PART 1) 

MD-11-DZRLB RL1i/RLV11 RLO1 CONTROLLER TEST (PART 2) 

MD-11-DVRLA RLV11 RLO1 DISKLESS TEST (RLV11 ONLY) 

MD-11-DZRLC RLO1 DRIVE TEST (PART 1) 

MO-11-DZRLC RLO1 DRIVE TEST (PART 2) Z 


1. & BISUMPTIONS 


THE HARDWARE OTHER THAN THE RLO1 SUBSYSTEM IS ASSUMED TO WORK 
PROPERLY. FALSE ERRCRS MAY BE REPORTED IF THE PROCESSOR. ETC , 
DO NOT FUNCTION PROPERLY 


2.0 OPERATING INSTRUCTIONS 
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FOLLOW STANDARD DEC PROCEDURES TO LOAD THE PROGPOM (xXxXDP. 
ABSOLUTE LOADER, UPD1. UPD2) 


2.1.2 STARTING PROCEDURES 


THE PROGRAM STARTS AT LOCATION 200. USE STANDARD DEC PROCEDURES 
TO START THE PROGRAM. 


2. i. 2 STEPS FOR QUICK AND SIMPLE EXECUTION 


THE DIAGNOSTIC CAN BE EXECUTED STANDALONE WITHOUT RPERDING THE REMAINDER OF THIS 
DOCUMENT AS FOLLOWS: 


A) LOAD THE DIAGNOSTIC 

B) START AT ADDRESS 200 

C) ANSWER THE HARDCORE QUESTIONS 

D) RECEIVE PROMPT (DS A>) 

E) ENTER STAXCR> 

F) ANSWER HARDWARE AND SOFTWARE QUESTIONS 

G) GET END OF PASS MESSAGES OR ERROR MESSAGES 
H) TG END EXECUTION. ENTER CONTROL.’C 








2.2 SPECIAL ENVIRONMENTS 


THE ENVIRONMENTS THIS PROGRAM WILL RUN IN ARE XXDP. XXDP CHAIN. 
ACT, SLIDE AND APT. 


3 PROGRAM OPTIONS 


t 


4 ERKEEAAEAA EKA AA AA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA EE 
STACPT)/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-LIST>/EOP: <INCR> 
FEE EEAKEAE KAKA REAR AAA A AAA AAA AAA EAA A AAA AAT AAA AAA AA AAA AAAI E KS 


- 21 1 TESTS SWITCH (/TESTS: <TEST-LIST>) 


.TEST-LIST> §S A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES 

OF DECIMAL NUMBERS (1-5: 8-10 ETC. ) SEPARATED BY COLONS, SPECIFYING 
WHICH TESTS IT IS DESIRED BE EXECUTED. THE TEST NUMBERS RANGE FROM 

1 TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE SPECIFIED 
IN ANY ORDER. TESTS WILL BE EXECUTED IN NUMERICAL ORDER REGARDLESS 

OF ORDER OF SPECIFICATION. THE DEFAULT 1S TO EXECUTE ALL TESTS. ON 
THIS AND ALL SWITCHES, THE ANGLE BRACKETS <> ARE PUNCTUATION USED IN THE 
oF oes or ee AND ARE NOT TO BE TYPED BY THE OPEPATOR. SEE EXAMPLE 
AT END OF 2. 3.1. 


2.3.1.2 PASS SWITCH (/PASS: <PASS-CNT>) 


<PASS-CNT> 1S A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF PASSES. 

A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC (ALL SELECTED TESTS?! 
AGAINST ALL UNITS SUBMITTED. THE DEFAULT !S NON-ENDING EXECUTION: IE, 

EXIT 1S ACCOMPLISHED EITHER BY TYPING A CONTROL/C OR BY A HALT ON ERROR 

BEING ENCOUNTERED, IN WHICH CASE WE RETURN TO COMMAND MODE. SEE EXAMPLE 

AT END OF 2. 3.1. 


2.3.1.3 FLAGS SWITCH (/FLAGS: <FLAG-LIST>) 
<FLAG-LIST> 1S A SEQUENCE OF ELEMENTS OF THE FORM <FLAG>. <FLAG=1>. 


OP <FLAG=0>, SEPARATED BY COLONS. WHERE <FLAG> HAS ONE OF 
THE FOLLOWING VALUES: 


HOE HALT ON ERROR. CAUSING COMMAND MODE TO BE ENTERED WHEN AN 
ERROR 1S ENCOUNTERED 
LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 


WITHIN THE SMALLEST DEFINED BLOCK OF CODiNG (SEGMENT. 
SUBTEST. OR TEST) CONTAINING THE ERROR 


IER INHIBIT ERROR REPORTING 

iBE INHIBIT BASIC ERROR REPORTS 

1XE INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT ALL MESSAGES TO A LINE PRINTER 


PNT PRINT NUMBER OF TEST BEING EXECUTED 

BOE BELL ON ERROR 

UAMN “RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS 
ISR INHIBIT STATISTICAL REPORTS 

IDR INHIBIT DROPPING OF UNITS BY [PIAGNOSTIC 





J 


THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE EQUATED TO 0 SEQ 0005 
ARE CLEARED. A FLAG NOT SPECIFIED 1S CLEARED. IF THE FLAGS SWITCH 
1S NOT GIVEN ALL FLAGS ARE CLEARED. SEE EXAMPLE AT END OF 2. 3.1. 


2.2.1.4 END OF PASS SWITCH (/ZEOP: <INCR>) 


<INCR> 1S A DECIMAL NUMBER INDICATING HOW OFTEN (CIN TERMS OF PASSES) 
1T 1S DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. THE DEFAULT IS 
AT THE END OF EVERY PASS. SEE EXAMPLE AT END OF 2. 3.1. 


2 7.1.5 EFFECT OF COMMAND 


THE EFFECT OF THE START COMMAND iS TO INITIATE THE HARDWARE PARAMETER 
DIALOGUE, THE SOFTWARE PARAMETER DIALOGUE. AND THEN THE DIAGNOSTIC 
TESTS THEMSELVES. 


THE HARDWARE PARAMETER DIALOGUE COMMENCES WITH THE QUESTION 

"s UNITS?" TO WHICH THE OPERATOR REPLIES WITH A DECIMAL 

NUMBER N FROM 1 TO 64. THE TERM "UNIT" REFERS TO THE DEVICE 

TO WHICH THIS SERIES OF DIAGNOSTICS IS DEDICATED. FOLLOWING THIS ARE 
THE QUESTIONS WHEREBY THE P-TABLES THEMSELVES WILL BE BUILT. EACH 
P-TABLE 1S A CORE-RESIDENT TABLE CONTAINING 

ALL THE HARDWARE INFORMATION FOR ONE UNIT. THE OPERATOR MUST SUPPLY 
N (NUMBER OF UNITS) VALUES FOR EACH QUESTION. HE MAY 

DO THIS BY GIVING ONE ANSWER TO EACH QUESTION (IN WHICH CASE THE 
SERIES OF QUESTIONS WILL BE POSED N TIMES) OR BY GIVING N VALUES, 
SEPARATED BY COMMAS. TO EACH QUESTION (SERIES WILL BE POSED ONCE) 
EACH QUESTION 1S FOLLOWED BY THE RESPONSE RADIX (D FOR DECIMAL, B 

FOR BINARY, O FOR OCTAL. L FOR YES/NO) IN PARENTHESES AND THE DEFAULT 
VALUE AFTER THE PARENTHESES 


FOLLOWING THE HARDWARE QUESTIONS ARE THE SOFTWARE QUESTIONS TO 
BUILD THE SOFTWARE TABLES. WHICH DEFINE THE MODE (QUICK VERIFY ETC.) 
THAT THE DIAGNOSTIC WILL EXECUTE IN 


AT THE POINT WHERE THE QUESTION “# UNITS?" 1S ANSWERED, 

CORE STORAGE 1S ALLOCATED FOR THE P-TABLES. ANO IF THERE IS NOT ENOUGH 
TO ACCOMMOVATE THEM THE MESSAGE “TOO MANY UNITS" IS ISSUED. IN THIS CASE 
THE DIAGNOSTIC MUST BE EXECUTED MORE THAN ONCE TO TEST ALL UNITS 


EXAMPLE: 
STA/TESTS: 1: 2-4: 6: 8-10/PASS: 3/FLAGS: IER: HOE=1: UAM: LOE 


THIS COMMAND WILL CAUSE THREE PASSES TO BE MADE. EACH PASS CONSISTING 

OF TESTS 1,2.3.4,6.8,9. AND 10 EXECUTED AGAINST ALL UNITS. THERE IS NC 
DIFFERENCE BETWEEN SAYING <FLAG> AND SAYING <FLAG=1>. THE 

NOTATION <FLAG=0> 1S MEANINGFUL ONLY ON A COMMAND OTHER THAN 

START TO CLEAR A FLAG THAT WAS PREVIOUSLY SE7. NOTE THAT 

ON ALL COMMANDS ONLY THE FIRST THREE LETTERS ARE SCANNED. 


2.3.2 RESTART COMMAND 


KREKAAEAAAA AAA AAA AAA AAA AAA AAAS AAA AAA AAA AAA EEE E EE EEE RAY 
RES(TAR™)/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-LIST>/UNITS: <UNIT-LIST> 
ERERAKAAGR ARATE RY 


imal 


2.3.2.1 TESTS, PASS. AND FLAGS SWITCHES 
<TEST-LIST>. <PASS-CNT>, AND <FLAG-LIST> ARE AS IN THE START COMMAND 
UNITS SWITCH (/UNITS: <UNIT-LIST>) 


CUNIT-LIST> 1S A SEQUENCE OF DECIMAL NUMBERS (1,2 ETC.) OR RANGES 

OF DECIMAL NUMBERS (1-5, 8-10 ETC.) SEPARATED BY COLONS. INDICATING 
WHICH UNITS IT 1S DESIRED BE TESTED. THE NUMBERS MAY RANGE FROM 1 THRU 
N (N 1S THE NUMBER OF UNITS SPECIFIED IN THE PREVIOUS START COMMAND). 
THE NUMBER INDICATES THE POSITION OF THE P-TABLE AS THE DATA WAS ENTERED 
DURING THE HARDWARE DIAGLOGUE. THE UNITS WHICH ARE 

SELECTED MUST NOT HAVE BEEN DROPPED BY THE DROP a SEE THE 
DISCUSSION OF ADD AND DROP COMMANDS BELOW. DEFAULT 

1S TO TEST ALL UNITS WHICH HAVE NOT BEEN DROPPED BY A DROP COMMAND 


SEQ 0006 


to 
ta 
to 
to 


-——-- 


2 2 2 2 EFFECT OF COMMAND 


THE RESTART COMMAND DIFFERS FROM THE START COMMAND IN THAT THE P-TABLES 
FROM THE PREVIOUS START COMMAND (THERE MUST HAVE BEEN ONE) ARE USED, IN- 
STEAD OF NEW ONES BEING BUILT. THE UNITS SWITCH GIVES THE ABILITY TO 
SELECT A SUBSET OF THESE. THE SOFTWARE DIALOGUE MAY OPTIONALLY BE RE- 
EXECUTED (OPERATOR WILL BE ASKED). THE COMMAND CAN BE USED AFTER COMMAND 
MODE HAS BEEN REENTERED IN ANY OF THE THREE NORMAL WAYS: A) THE RE 
QUESTED NUMBER OF PASSES HAVE BEEN MADE 8B) AN ERROR WAS ENCOUNTERED 
WITH THE HALT ON ERROR FLAG SET C) A CONTROL/C WAS ENTERED BY THE 
OPERATOR. 


2.3.3 CONTINUE COMMAND 


etetttttitttttettitettttsttetsttettitsi tis! 
CON(TINUE)/PASS: <PASS-CNT/FLAGS: <FLAG-LIST> 
HERAEKAAAKEEREEEEA REAR AA EAAA AE EAA R ARR TARY 


2.3. 74. PASS SWITCH (/PASS: <PASS-CNT>) 
<PASS-CNT> 1S SAME AS IN START COMMAND. BUT THE DEFAULT 1S THE UN- 
SATISFIED PASS-CNT FROM THE PREVIOUS START OR RESTAPT. IF NONE FE- 
MAINS, THE DEFAULT 1S NON-ENDING EXECUTION 


2 P°l 2 FLAG SWITCH (/FLAGS: <FLAG-LIST>) 


FLAG-LIST> 1S SAME AS IN START COMMAND BUT UNSPECIFIED FLAGS PE- 
TAIN THEIR CURRENT VALUF 


2. 3.3.3 EFFECT OF COMMAND 


CONTINUE MUST FOLLOW A START OR RESTART, AND COMMAND MODE MUST HAVE 
: BEEN ENTERED DUE TO A HALT ON ERROR OR A CONTROL/C. THE EFFECT 
, OF THE COMMAND 1S TO GO TO THE BEGINNING OF THE TEST THAT WAS BEING 
\, EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE. SOFTWARE DIALOGUE MAY 
OPTIONALLY BE PEEXECUTED. HARDWARE PARAMETERS MAY NOT BE CHANGED 





3.4 PROCEED COMMAND 


to 


ESS SSE SESS ESSE CECE CE CS ESE S| 





PRO(CEED)/FLAGS: <FLAG-LIST> 
KREGER ERE E AAA A AAA A RARE AAAS 


2.3.4.1 FLAGS SWITCH (/FLAGS: <FLAG-LIST>) 


<FLAG-LIST> 1S AS IN THE START COMMAND, BUT UNSPECIFIED FLAGS RETAIN 
THEIR CURRENT VALUE. 


2.3.4.2 EFFECT OF COMMAND 


PROCEED MUST FOLLOW A START, RESTART, OR CONTINUE. COMMAND MODE 
MUST HAVE BEEN ENTERED VIA A HALT ON ERROR. THE EFFECT OF THE 
COMMAND 1S TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 

ERROR CALL. WEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED 


-. 2.5 CREATE CORE IMAGE COMMAND 


ER SS OSES CESS 22 2 3 8 3 ooo od 8 00 095 08 8 8 8 0 0 9 699930088 8088 8 0 8) 
Coli /TESTS: « TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-LIST> 
PSS SS SREE SESE SESE SES SS? 600559050999 05 0500089005550 08 58 | 


2.3.5.1 TESTS, PASS, AND FLAGS SWITCHES 


<TEST-LIST>. <PASS-CNT>, <FLAG-LIST>, AND ARE AS 
IN THE START COMMAND. EXCEPT THAT THE UAM (UNATTENDED MODE) FLAG 
DEFAULTS TO THE SET POSITION. 


2.3.5.2 EFFECT OF COMMAND 


THE PURPOSE OF THIS COMMAND IS TO CREATE A BIC FILE SUITABLE FOR 
CHAIN MODE EXECUTION. THE XXDP PROCEDUPE !S AS FOLLONS: 


INVOKE THE XXDP UTILITY UPD1 

LOAD XXN: FILE. BIN, 

START 200 

<QUESTIONS AND ANSWERS> 

RESTART UPD1 USING RESTART ADDRESS 

HICORE ADDRESS ‘(IF “PASSED 14. 5K" MESSAGE CANE) 
DUMP XXN: FILE. BIC 


THE OPERATOR DIALOGUE (HARDWARE AND SOFTWARE) WILL 

BE EXECUTED AS IN THE START COMMAND, BUT AT THE END OF THE QUESTIONS 

THE HALT STATE WILL BE ENTERED. AT WHICH TiME THE OPERATOR SHOULD 

DUMP THE PROGRAM TO THE XXDP LIBRARY USING A BIC EXTENSION 

‘TO INDICATE THAT THIS FILE 1S CHAINABLE. HE SHOULD USE THE XXDP UTILITY 
“UPD1" TO DO THIS. IF THE P-TABLES EXTEND BEYOND 14. 5K, A MESSAGE 

WILL BE ISSUED GIVING THE NEW UPPER CORE LIMIT. TO WHICH THE OPERATOP 
MUST ADJUST BEFORE DUMPING. HE MAY NOW DELETE Tee 

NON-CHAINABLE BIN FILE IF DESIRED, SINCE THE BIC FILE HAS ALL THE 
CAPABILITIES OF IT. 


WHEN THIS BIC FILE 1S SUBSEQUENTLY EXECUTED IN CHAIN MODE. 
THE OPERATOR DIALOGUES WILL BE BYPASSED. HOWEVER. IF IT IS EXECUTED 
STANDALONE, THE DIALOGUE WILL BE REISSUED 


NOTE THAT IF THE MESSAGE “TOO MANY UNITS" 1S ISSUED, ThO OR MORE 
CORE IMAGES MUST BE CREATED (WITH DIFFERENT NAMES) TO TEST ALL UNITS 


2.3.6 ADD COMMAND 


KEKRAAKEKAA AKA EA EAE EAE 
ADD/UNITS: <UNiT-LIST> 
222253593 2 oo 0 0 6 0% 3 3 8 | 


2.3.6.1 UNITS SWITCH (/UNITS: C<UNIT-LIST> 
<UNIT-LIST> 1S AS IN THE RESTART COMMAND 
3.6.2 EFFECT OF COMMAND 


THE UNITS SPECIFIED ARE ADDED TO THE TEST SEQUENCE. EACH UNIT 

MUST HAVE A P-TABLE IN MEMORY DUE TO AN EARLIER HARDWARE DiALOGUE. 

THIS COMMAND MUST BE FOLLOWED BY A RESTART OR CONTINUE. THE UNITS 
SWITCH MUST BE SPECIFIED. THE ADD COMMAND IS MEANINGFUL ONLY FOR UNITS 
THAT WERE PREVIOUSLY DROPPED. 


2.2.7 DROP COMMAND 


te 
‘ 


KKKKEKA EATER ARERR RE KEE 
DROCP)/UNITS: <UNIT-LIST> 
BO So 02 8 $605 55 9050992520 8 | 


2.3.7.1 UNITS SWITCH «/UNITS: (UNIT-LIST>) 
<UNIT-LIST> 1S AS IN THE RESTART COMMAND. 

2.3.7.2 EFFECT OF COMMAND 
THE UNITS SPECIFIED WILL BE DROPPED FROM TESTING. THE UNITS WILL 
BE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR START COMMAND. 
THE UNITS SWITCH MUST BE ENTERED. THIS COMMAND MUST BE 
FOLLOWED BY A RESTART OR A CONTINUE COMMAND. 


2.3.8 PRINT COMMAND 


soeanee 
PRIONT: 
subaaea 


23.81 EFFECT OF COMMAND 


ALL STATISTICS TABLES ACCUMULATED SY THE DIAGNOSTIC ARE PRINTED. THE 
ISR (INHIBIT STATISTICAL PEPORTING) FLAG 1S CLEARED. 


2.3.9 DISPLAY COMMAND 


KEKARAAAAAAAAAAA AERA AAA AE 
DIS(PLAY)/UNITS: <UNIT-LIST> 
KHGREAARARAAAAA AAAS AERA A EAE 
2.3.9 1 UNITS SWITCH (/UNITS: <UNIT-LIST>? 


<UNIT-LIST> 1S AS IN THE RESTART COMMAND 


SEQ 0008 


7 


| 
| 
J 


an 


3.9.2 EFFECT OF COMMAND 


th 


THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN THE 
FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT WERE DROPPED BY THE 


OPERATOR "DROP" COMMAND ARE SO DESIGNATED. 
<. 3.16 FLAGS COMMAND 


XKKEKS 
FLAGS) 
eeoRKS 
- 3.10.1 EFFECT OF COMMAND 
THE CUPRENT SETTINGS OF ALL FLAGS ARE PRINTED 


- 2.11 CFLAGS COMMAND 


baaeeeye 

ZFL ‘AGS: e 

HERKEN RS 

2.3. 11.1 EFFECT OF COMMAND 
ALL FLAGS ARE CLEAPED. 


2.3.12 HARDWARE PARAMETERS 


THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE 

PL11 (L) Y? 


ANSWER YES(Y) IF YOU HAVE AN RL11 CONTROLLER. NC(N?! IF YOU 
HAVE AN RLY11 CONTROLLER 


BUS ADDRESS (0) 1744007 
ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER. 

VECTOR (0) 3307 

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER. 
BR LEVEL (0) 5? 

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLEP. 
DRIVE (0) 07 | 

ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER. 


2.3.13 SOFTWARE PARAMETERS 


SEQ 0009 


K 1 
THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START. RESTART. 
OR CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. 7 SEQ 0010 
THE SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY 
IN THE WAY IT RUNS. THE PARAMETERS CAN BE MODIFIED 
ON R START. RESTART. OR CONTINUE BY ANSWERING (Y)ES TO 
THE FOLLOWING QUESTION: 


CHANGE S.W. ? 


A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE PARAMETER 
QUESTIONS, WITH THE PRESENT DEFAULT VALUE PRINTED 

TO THE LEFT OF THE QUESTION MARK. (THE LAST ANSWER GIVEN 
1S THE DEFAULT) THE DEFAULT IS TAKEN ON A <CR). 

CONTROL Z ( 2) WILL DEFAULT ALL REMAINING QUESTIONS 

AND START THE TEST 


=. 3.135. 1 RETRY LAT X? 


TH!S 1S THE NUMBER OF TIMES THE PROGRAM 

WILL ATTEMPT A COMMAND BEFORE IT QUITS AND REPORTS 
A HARD ERROR. IF THE RETRY IS SUCCESSFUL BEFORE THE 
RETRY LIMIT IS EXCEEDED IT WILL PRINT AND LOG 

A SOFT ERROR. 


LIMITS O - 65,535 


2. 3.13.2 SEEK RETRY LMT X? 


THIS 1S THE NUMBER OF RETRYS THAT WILL BE ATTCNPTED 
TO SEEK TO A CYLINDER ON A MIS-SEEK. AFTER RETRY 
1S EXHAUSTED, WE WILL NOT TRY FOR THAT CYLINDER BUT 
CONTINUE WITH A NEW CYLINDER. 


LIMITS O - 65,535 


3.13.3 DATA DMP ON DCK ERR X? 


GIVES THE ABILITY TO SEE THE 1 SECTOR BUFFER THAT 
HAD A DATA CRC ERROR. THE RESULTS OF THE PRINTOUT APE 
ONE OF TWO POSSIBILTIES. 
1) ONLY THOSE WORDS OF THE SECTOR THAT WERE BAD 
ARE PRINTED WITH WHAT WAS EXPECTED 
2) IF ONE OF THE 1ST TWO WORDS IS BAD 
(USED TO KEY) THE ENTIRE BUFFER 1S DUMPED. 


LIMITS Y OP N 


to 
u 


13.4 # OF ERR DUMPED 
THIS 1S THE NUMBER OF MISCOMPARES THAT WILL BE PRINTED. 
LIMITS O - 128 


to 
ts 


2. 3.13.5 TIME BETW REPORTS (MIN?) Xx? 





De 
THIS 1S THE INTERNAL BETWEEN AUTOMATIC STATISTIC REPORTS 

; x ALL DRIVES IF A CLOCK IS PRESENT AND WAS ANSWERED SEQ 0011 

IN THE INITIAL DIALOG. 

LIMITS 1 - 65,535 

. 13.6 DROP DR ON ERR LMTS REACHED X? 
GIVES THE ABILITY TO AUTOMATICALLY STOP TESTING ON A 
DRIVE ONCE ONE OF THE ERROR LIMITS HAVE BEEN EXCEEDED 
(SEEK, DRIVE, HARD, SOFT). IF THE ANSWER IS 
YES THEN THE FOLLOWING FOUR QUESTIONS WILL BE ASKED. IF NO 
THEN THE NEXT QUESTION WILL BE 2. 3. 13. 11. 


LIM'TS Y OR N 


“12.7 HRD ERR LMT x? 

THIS 1S THE LIMIT OF HARD ERRORS THAT A DRIVE WILL BE 
DROPPED ON. A HARD ERROR 1S ONE ON WHICH THE RETRY HAS 
BEEN EXHAUSTED. 


LIMITS 1 - 65,535 


13.8 SFT ERR LMT x? 

THIS 1S THE LIMIT OF SOFT ERRORS THAT A DRIVE 

WILL BE DROPPED ON. A SOFT ERROR 1S AN ERROR ON AN 
OPERATION THAT WAS SUCCESSFUL WITHIN THE RETRY LIMIT. 


LINITS 1 - 65,535 


. 13.9 DATA MISCOMPARE LIMIT X? 
THIS 1S THE LIMIT OF IN CORE MISCOMPRRES THAT THE OPIVE WILL BE 
DROPPED ON. 


LiMITS 1 - 65,535 
17. 10 St ERR LMT X? 


THIS 1S THE LIMIT OF MIS-SEEK AND TRACKING EPPORS THAT A DRIVE 
WILi BE DROPPED ON 


LIMITS 1 - 65,535 


.13.11 OR ERR LMT xX? 


THIS 1S THE LIMIT OF DRIVE ERRORS THAT A ORIVE 
WILL BE DROPPED ON. 


LIMITS 1 - 65,535 


. 13.12 DROP DR ON OPER LMTS REACHED x? 


to 
ts 


to 


GIVES THE ABILITY TO STOP TESTING ON A DRIVE 


(SEEK, BITS TRANSFERRED). THE ORIVE WILL BE 
DROPPED ONLY WHEN BOTH HAVE BEEN EXCEEDED. IF 
THE ANSWER 1S YES THEN THE NEXT TWO QUESTIONS 
De eee 1F NO THE NEXT QUESTION WILL BE. 


LIMITS Y OR N 


. 13.13 DATA XFER LMT (410(10)) xX? 


THIS 1S THE LIMIT OF COMBINED BITS READ/WRITTEN 
(*10°10)) ON WHICH THE DRIVE WILL BE DROPPED. 


LIMITS 1 - 65,535 


i4 SK LMT (k1003)) X? 


THIS IS THE LIMIT OF SEEK OPERATIONS (410(3)) ON 
WHICH THE DRIVE WILL BE DROPPED. 


LIMITS 1 - 65,535 (410(3)) 


is 


. 13. 15 DO YOU WANT TO CHANGE SEEK. R/W PARAMETERS X? 


THE NORMAL OPERTATION IS TO SEEK AND TRANSFER 

ON THE ENTIRE CARTRIDGE, CYLINDERS 0 - 255, SCCTORS 
0 - 39 AND BOTH SURFACES. THE NORMAL TRANSFER 

1S RANDOM BETWEEN 3 AND 128C WORDS. 


THE NEXT 8 PARAMETERS WILL ALLOW THE USER TO CONF INE 
THE TESTING TO ANY CONTIGUOUS SECTION OF THE 
CARTRIDGE AND CONTROL THE SIZE OF THE TRANSFERS 


A YES ANSWER WILL ASK THE NEXT 13 QUESTIONS, A 
NO WILL GO TO QUESTION 2. 3. 13. 29. 


3.12. le STIPULATE R/W XFER SIZE X? 


THE PROGRAM WILL NORMALLY MAXIMIZE THE TRANSFER 

S1ZE BY USING ALL OF MEMORY (<Z8K) AVAILABLE. THIS QUESTION 
IF ANSWERED YES WILL RESTRICT THE BUFFER TO THOSE VALUES 
GIVEN IN 2. 3.13.17 AND 2.3.13.18. IF NO IS GIVEN NEXT 
QUESTION IS 2. 3.13.19 


LIMITS Y OR N 


13.17 MAX XFER X? 
REPRESENTS THE MAXIMUM AMOUNT OF WORDS TO READ OR WRITE 
Limits 3 - 5120 


SEQ 0012 


13.18 MIN XFER X? 
REPRESENTS THE MINIMUM AMOUNT OF WORDS TO READ OR WRITE 
LIMITS 3 - 5120 


SEQ 0013 


.13.19 RD ONLY &? 


GIVES THE ABILITY TO INHIBIT WRITING THE PACK WHILE 
TESTING. THE INITIAL WRITE OF THE PACK FROM THE 
START COMMAND WILL STILL OCCUR. 


LIMITS Y OR N 


3.12.19 RAN PAT X? 


NOPMAL OPERATION SHOULD BE YES. BUT THIS PARAMETER . 
WILL ALLOW THE WRITING OF ONLY ONE PATTERN OF . 
E'!GHT NORMAL: PATTERNS. THE PATTERNS ARE 

SHOWN IN 2.3.13.21. IF ANSWER IS YES THEN 2. 3.13.21 

WILL BE THE NEXT QUESTION. IF NO THEN QUESTION 2. 3.13.22 


t Aapch del OR N 


. 
pi nrcbiainaciainaioess . ? in 


% ra WHICH ONE: x? 


hese ee NOW POSSIBLE TO CONTAIN THE EXERCISER IN 
TING ONLY ONE OF THE FOLLOWING EIGHT PATTERNS: 





- “ ALL O' fe : 
: = * 177777. 177777, 177777. §2525, §2525, §2525 
177777. 177777, 2525, 52525, 177777, 52525 
177252, 177252, 172765, 172765 
z* 0.0,0, 177777, 177777, 177777 
0, 0, 177777, 177777. 0, 177777. 0.177777 
0, 177777 
3: 25252. 52525, §2525. 125252, 125252. 125252 
52525, 52525, 125252, 125252. 52525. 125252 
52525, 125252, 52525. 125252 
155555. 132333, 66666, 155555. 133333. 66666 
155555, 133333, 66666, 155555 
121195, 150442, 64221, 132110, 55044, 26422 
13211, 105504, 42642, 21321. 110550. 44264 
22132. 11055, 104426. 42213 
6° ALL 1°S : 
?- 45513, 122645, 151322. 64551. 132264. 55132 
26455, 113226. 45513, 122645, 151322. 64551 
132264. 55132, 26455. 113226 


Limits O - 7 
13,22 WR CHK X? 
DO YOU WISH TO PERFORM @ WRITE CHECK AFTER EACH WRITE OPERATION 


wm 
‘ 


LIMITS Y OR N 





WVRIIML IRAMNSTERS MKE KHNUUM BEIWEEN 3 AND 1280 WORDS, THIS 
PARAMETER WILL ALLOW YOU TO SPECIFY HOW MANY WORDS SHOULD BE 
COMPARED PER SECTOR IN CORE AFTER EACH READ. IF THE VALUE 
SPECIFIED 1S GREATER THAN THAT READ IN ONLY THE NUMBER READ 
IN ARE COMPARED. THE FEWER WORDS COMPARED IN CORE ON EACH 
READ THE FASTER THROUGHPUT THE EXERCISER WILL HAVE. 


LIMITS O - 128 


- 3.13 25 # OF DATA ERR RPT'D PER BUF xX? 
THIS PARAMETER WILL LIMIT THE NUMBER OF IN CORE 
MISCOMPARES PRINTED. THE PROGRAM WILL CONTINUE TO 
COMPARE AS MANY WORDS AS SPECIFIED IN 2. 3.13.21 BUT WILL 
INHIBIT THE PRINTOUT ONCE THIS LIMIT IS REACHED. AFTER ALL 
WORDS ARE CHECKED A SUMMARY WILL BE PRINTED: 
* WORDS BAD OUT OF 128 WORDS READ 


LIMITS O - 126 


. 23 MAX HD xX? 
PEPPESENTS MAXIMUM HEAD TO USE IN SEEK OPERATIONS. 
LIMITS OG - 1 


_26 MIN HD X7 
REPRESENTS MINIMUM HEAD TO USE IN SEEK OPERATIONS 
LIMITS O - 1 


. 2? MAX CYL X? 


MAXIMUM INNER CYLINDER TO BE USED IN SEEK OPERATIONS 
LIMITS O - 255 


. 28 MIN CYL X? 


MINIMUM OUTER CYLINDER TO BE USED IN SEEF 
OPERATIONS. 


LIMITS 0 - 255 


. 29 MAX SEC X? 
MAXIMUM SECTOR TO START TRANSFER ON 
LIMITS 0 - 39 





tm 


t 


3.13. 30 MIN SEC X? 


MINIMUM SECTOR TO START TRANSFER ON 
LIMITS O - 39 


AFTER ANSWERING THE LAST SOFTWARE PARAMETER THE 
PROGRAM WILL START THE TESTING 


_13. 31 CHK DRDY X? 


ON START UP IF THIS QUESTION IS ANSWERED YES THE PROGRAM 
ie NOT TEST ANY DRIVES THAT DO NOT HAVE DRIVE READY 
HGH. 


LIMITS Y OR N 


14 EXTENDED DISCUSSION CF P-TABLE DIALOGUE 


THE FULL CAPABILITY OF THE HARDWARE DIALOGUE 1S REVEALED BY THE FOLLOWING 
DISCUSSION OF WHAT HAPPENS INTERNALLY. 


AS SOON AS THE QUESTION "® UNITS?" 1S ANSWERED (WITH THE NUMBER 

N, SAY) SPACE IN CORE IS ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT, AND THERE 1S A ONE-TO ONE CORRESPONDENCE BETWEEN 
THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE FORMAT. 


ON THE FIRST TRIP THRU THE QUESTIONS. ALL OF THE SLOTS IN ALL OF THE 

P-TABLES ARE FILLED. IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT VALUES 

IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES ARE PLACED IN THE P-TABLES 
(ONE VALUE GOING !NTO THE PROPER SLOT OF EACH P-TABLE BEGINNING WITH THE 
FIRST P-TABLE) UNTIL THE STRING OF VALUES |S EXHAUSTED. THE LAST VALUE 

IN THE STRING BECOMES THE NEW DEFAULT AND !S USED THEN AND THERE TO FILL 

THAT SLOT IN THE REMAINING P-TABLES 


ON SUBSEQUENT TRIPS THRU THE QUESTIONS. THE SAME PROCESS IS CARRIED OUT, 
EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT VALLE 
IN ANY OF SS ve ta NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE PLAYED 
IN THE FIRST TRIP. 


THE SERIES OF QUESTIONS !S REISSUED UNTIL AT LEAST ONE QUESTION HAS RECEIVED 
N EXPLICIT VALUES FROM THE OPERATOR. 


IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY BE USED 
TO INDICATE A REPETITION OF THE LAST NAMED VALUE. 


A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE 
VALUES REPRESENT PURE NUMERICAL DATA, THIS SAMPLE RANGE TRANSLATES TO THE 
STRING 6. 7,8,9,10 (AN INCREMENT OF 1). IF THE VALUES ARE ADDRESSES. THE 
SAMPLE RANGE TRANSLATES TO THE STRING 6.8.10 (AN INCREMENT OF 2) 


NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A SET OF 
P-TABLES. ASSUME THAT WE HAVE 64 UNITS, AND THAT THERE ARE THREE HARDWARE 
PARAMETERS FOR EACH (THREE SLOTS IN THE P-TABLE. THREE HARDWARE QUESTIONS 


SEQ 001 


J 


5 | 


ee 


D 2 
IN THE DIALOGUE). LET THE DESIRED VALUE FOR THE FIRST PARAMETER ; 
BE THE NUMBER 75 FOR ALL 64 TABLES. LET THE DESIRED VALUE FOR THE SECOND SEQ O016 | 
PARAMETER BE EQUAL TO THE UNIT NUMBER (1,2,3,...,64) EXCEPT FOR UNIT 
50, WHICH SHOULD RECEIVE THE VALUE 49. LET THE DESIRED VALUE FOR THE THIRD | 
Sang Say 1 eet NUMBER 76 FOR THE FIRST 20 UNITS AND THE NUMBER 77 FOR THE 
L 44 UNITS. 


THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL: 
# UNITS (D) 7? 64 


UNIT 1 

<QUESTION 1> ? 75 
<QUESTION 2> ? 1-20 
“QUESTION 3> ? 76 


UNIT 21 

<QUESTION 1> ? 

QUESTION 2> ? 21-49,,51-64 . 
QUESTION 3> ? 77 


THE FIRST TIME THE SERIES 1S ASKED, SLOT ONE RECEIVES A 75 IN ALL 

64 TABLES. SLOT TWO RECEIVES THE VALUES 1.2,.3,...,20 IN TABLES 1 THRU 20 
AND A CONSTANT 20 IN TABLES 21 THRU 64. SLOT THREE RECEIVES A CONSTANT 76 
IN ALL 64 TABLES. 


THE SECOND TIME THRU THE SERIES, TABLES 21 THRU THE END ARE GOING TO 

BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS PRINTED OUT FOR THE 
THE OPERATOR IN THE FORM “UNIT XX" AT THE BEGINNING OF EACH SERIES) 
QUESTION 1 1S RESPONDED TO BY A <CR>, SO SLOT ONE STAYS 

AT CONSTANT 75 IN TABLES 21 THRU 64 SINCE NO NEW EXLICIT VALUES ARE TYPED 
IN. SLOT TWO GETS THE VALUES 21,22.23,....49 IN TABLES 21 THRU 49, AND 
GETS A 49 IN SLOT 50, AND GETS THE VALUES 51,52,53,...,64 IN TABLES 

51 THRU 64. SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64. 


THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64 
EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTION 
(NAMELY QUESTION 2). 


2.4 EXECUTION TIMES 


EXECUTION TIME 1S DEPENDENT ON PROCESSOR. NUMBEP OF CONTPOLLEPS 
AND DRIVES. 


3.0 ERROR INFORMAT!ON 


ALL ERRORS ARE PRINTED VIA CONSOLE DEVICE. THE ERROR INCLUDES 
ERROR NUMBER, TYPE AND PROGRAM LOCATION. ERRORS INCLUDE REGISTERS 
BEFORE AND AT ERROR WITH RELEVENT DATA 


3.1 ERROR REPORTING 


THE FOLLOWING ARE ERPOP HEADINGS THAT MAY BE ENCOUNTERED 
WHILE RUNNING. A BREIF DESCRIPTION IS GIVEN. 


_— 


SFT ERROR 


AN ERROR WAS DISCOVERED, BUT ON RETRY THE ERROR DID NOT 
PERSIST. INFO GIVEN IS ERROR.RLCS,RLBA, AND RLDA 


EXH'D RETRY ON SEEK 
THE NUMBER OF RETRIES GIVEN HAVE FAILED TO POSITION DRIVE 
TO THE GIVEN TRACK. INFO GIVEN IS PLCS. RLDA,RLBA,LAST POS- 

+ ITION, PRESENT POSITION, AND DRIVE STATUS 

AOL CHK WILL NOT RESET 
A DRIVE RESET WILL NOT RESET VOLUME CHECK BIT 

OF DID NOT REC'R FROM PUR UP 
DRIVE DID NOT COME BACK UP AFTER A POWER FAILURE 

“ paTR DMP - DATA CHECK/GARRBLED DATA 
THE PROGRAM ENCOUNTERED A DATA CHECK ERROR BUT WAS 
UNABLE TO MAKE SENSE OUT OF THE FIRST THO WORDS, 
WHICH ARE USED TO KEY OFF OF. THEREFORE ALL WORDS OF 
SECTOR ARE DUMPED. (REFER TO SECTION 23.13.21) 

LIMITS EXCEEDED! HIGH - X LON - Y 
ANSWER GIuEN 12 NOT WITHIN LIM!TS FOP QUESTION. 


NO DEFAULT PROVIDED! 
CANNOT <CR> TO THIS QUESTION 


ILLEGAL COMMAND 
START. RESTART. CONTINUE. PRINT TYPED IN 
WRONG FORM 
iLL ENTRY IN P-TABLE 
ANSWERS IN HARDWARE SECTION ARE NOT LEGAL 
1.&. MORE THAN TWO CONTROLLERS 
VECTORS FOR A CONTROLLEP NOT CONSISTANT 
MORE THAN TWO VECTORS 
CAN'T READ FACTORY BAD SECTOR FILE 


PROGRAM 1S UNABLE TO READ ANY OF THE FACTORY FILES 


CAN'T READ FIELD BAD SECTOR FILE 
PROGRAM 1S UNABLE TO READ ANY OF THE FIELC FILES 


SEQ a 


~r eh 


i ie 




























SEQ 0018 


RLOIK HAS MORE THAN 16 BAD SECTORS 


PROGRAM LIMITS EXERCISING CARTRIDGES TO THOSE 
WITH LESS THAN 16 BAD SECTORS 


NO ORIVES ENTERED 


EITHER NO DRIVES WERE ENTERED OR ALL DRIVES THAT WERE 
ENTERED WERE DROPPED FOR ONE REASON OR ANOTHER. THE 
PROGRAM WILL LOOP AFTER PRINTING THE ERROR, WAITING FOR C. 
A START COMMAND IS NOW NECESSARY 


DFW NOT RDY W/O ORV ERR 


ON COMPLETION OF A COMMAND. DRIVE READY IS CHECKED 
FOR A POSSIBLE DRIFT TRACKING PROBLEM. IF THERE 1S 
NO DRIVE READY A GET STATUS IS DONE TO VERIFY 

THAT THE DRIVE 1S NOT IN PROCESS OF SEEKING IF IT 
1S SEEKING THE CONDITION 1S LEGAL. THIS TYPEOUT 
IMPLIES THERE WERE NO DRIVE ERRORS WHICH MAY HAVE 
CRUSED DRIVE READY TO GO AWAY. 





TECh EPP 


THIS ERROR MEANS THAT THE DRIVE 1S NO LONGEP ON THE 
TRACK WE WERE ON FOR THE LAST READ HEADER PERFORMED 
EACH SEEK IS VERIFIED BY AN IMMEDIATE INITIAL 

READ HEADER. FROM THAT POINT ANY SUBSCQUENT READ 
HEADER. READ OR WRITE WILL PRINT THIS ERROR IF THE 
TRACK 1S NOT CORRECT. THIS ERROP WILL PRINT THE 
POSTION BEFORE THE LAST SEEK. THE PRESENT POSITION 
AND THE EXPECTED POSITION 


MIS-Sk ERR 


AFTER A SEEK WAS DONE. READ HEADER 1S DONE Teo WEP'F, 
THE SEEK. THE ERROR PRINTOUT WILL INCLUDE 

THE LAST POSTION BEFORE THE SEEt THE PRESENT Fo:- 
(TION AND THE EXPECTED POSTION 


A A A 





DPV STAT ERR 


THE RESULT OF A GET STATUS OPERATION IS INCORRECT. 
EITHER A ERROR BIT 1S SET OR THE STATE 1S WRONG 


PE ERR ENC'D 


IN ATTEMPTING A RETRY OF A FUNCTION THAT WAS IN ERROR 
THE RETRY WAS SUCCESSFUL. ERROR INFORMATION CONSISTS 
OF BUS ADDRESS. DISK ADDRESS. NUMBER OF RETRIES BEFORE 
SUCCESS AND ERROR TYPE. 


HPC ERR 


THE NUMBER OF RETRIES WERE EXHAUSTED WITH OUT SUCCESS 
THE ERROR PRINTOUT CONSISTS OF ALL REGISTERS BEFORE COMMAND 
AND AT TIME OF ERROR. 


intT WR OF SEC BAD 


WHILE WRITING THE PACK INITIALLY THE SECTOR INDICATED 
COULD NOT BE WRITTEN AND VERIFIED. THIS SECTOR 

WAS NOT IN THE BAD SECTOR FILE. EITHER STO® THE EXERCISER 
AND CHANGE CARTRIOGE.STOP THE EXERCISER AND VERIFY THE 
CARTRIDGE OF IGNORE ALL ERRORS FORM THAT SECTOR. 


3.2 ERROR HALTS 


ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIGUS SECTION 
WITH /FLAG: HOE. THERE ARE NO OTHER HALTS 


4 O PERFORMANCE AND PROGRESS REPORTS 


PERFORMANCE REPORTS ARE GIVEN AUTOMATICALLY (PER SCFTWARE PAFA- 
METERS), WHEN A DRIVE I¢ DROPPED. OR AT OPERATOR REQUEST ‘PRINT? 
THE FORMAT |S: 


Kk RLOI PERFORMANCE REPOPT 44% 


TIME: HH: MM: SS RLCS: XXXXXX DRIVE: Y RUNNING OF DPOPPED CH: OM 
PACK SERIAL #: NNNNNNNNNN 


SEEKS: Jittt 

BITS READ: JIJIIIISS C816) 

BITS WRITTEN: KKKKKKARA (#16! 

ERPORS 

DRIVE: WN SEER: N TRPACh. ON DATA N 


HAR: N SOFT: N 


SEQ 0019 | 





DOCK: N 
DLT: N 
WHERE 

HH iS 
MM is 
ss 1s 


X¥XXXX 1S 
f \ 


1 


OH is 
On iS 
NNNNNNNNNN 
iyi is 
djdJ 1s 
Phe 1s 


NW 1S 


wee ee ee ee eee eee 


HCRC: N NXM: N HNF: N 
OP |: N 


HOURS SINCE START/RESTART 
MINUTES SINCE START/RESTART 
SECONDS SINCE START/RESTART 
ADDRESS OF CONTROLLER 


S ORIVE NUMBER 


HOUR AT WHICH DRIVE WAS DROPPED 

MINUTE AT WHICH DR!VE WAS DROPPED 

- 1S 10 DIGIT OCTAL SERIAL NUMBER OF PACK 

TOTAL NUMBER OF SEEKS SINCE 0: 00: 00 

TOTAL NUMBER OF BITS READ (*16) SINCE 0: 00: 00 
TOTAL NUMBER OF BITS WRITTEN (416) SINCE 0: 00. 00 
NUMBER OF THAT TYPE ERROR SINCE 0: 00: 00 


DGPELE PERORTS 


THE ONL, PROGRESS PEPORT 15 THE AUTOMATIC PEPFORMHNCE FEPORT 


SEQ 0020 


i Pan 


SEQ 0021 


T 15 - MUST BE ZERO(O) 

T 14-7 - CYLINDER ADDRESS FOR TRANSFEP 
T 6 - SURFACE FOR TRANSFER 

T 5-0 - SECTOR FOR TRANSFER (0-47) 


5.0 DEVICE INFORMATION TABLES | 
THE RL1I/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4) 
REGISTERS FOR CONTROL OF THE SUBSYSTEM 
RLCS - CONTROL AND STATUS REGISTER (XXXXXO) 
Se a a ea ae eed | 
BiT 15 - COMPOSITE ERROR 
BIT 14 - DRIVE ERROR } 
BIT 13 - NON EXISTANT MEMORY ERROR 
BIT 12 - HEADER NOT FOUND (WITH BIT 10 SET) 
- DATA LATE (WITH BIT 10 CLEAR) 
BIT 11 - HEADER CRC (WITH BIT 10 SET) 
- DATA CRC (WITH BIT 10 CLEAR) 
B!T 10 - OPERATION INCOMPLETE 
BIT 978 - DRIVE SELECT (0-3) 
iT 7 = CONTROLLER READY | 
BiT © - INTERRUPT ENABLE 
£iT §& - EXTENDED BUS ADDRESS ‘BIT 17) 
B1T 4 - EXTENDED BUS ADDRESS (BIT 16) | 
BIT 3-1 - FUNCTION CODE ) 
0 - NOP (PDP-11) MAINT (LSI-11) 
1 - BRITE CHECK | 
2 - GET DRIVE STATUS 
3 - SEEK 
4 - READ HEADER 
5 - WRITE DATA: 
& - READ DATA 
7 - READ WITHOUT HEADER COMPARE 
BIT O - DRIVE READY 
PLEA - BUS ADDRESS REGISTER (XXXXX2) 
B!TS 15-1 BUS ADDRESS OF DATA TRANSFER , 
BIT O SHOULD BE 0 3 
FLOR - DISK ADDRESS REGISTER (XXXxxY) 
FOR READ WRITE FUNCTIONS 


FOR SEEK FUNCTION 


BIT 15 - MUST BE ZERO) 
BIT 14-7 - DIFFERENCE TO NEW CYLINDER 
BIT 6-5 - MUST BE ZERO0! 





SURFACE | 
MUST BE ZERO SEQ 0022 
SEEK DIPECTION( 1 - IN 7 0 - OUT ) 
MUST BE ZERO 

MUST BE ONE(1) 


FOR GET STATUS FUNCTION 


Dwmwwa 
3=4 555 
O-nwse 
(rene 


BIT 15-4 - IGNORED SHOULD BE ZERO 
BIT 3 - DRIVE RESET 

BIT 2 - MUST BE ZERO 

BIT 1 - MUST BE ONE 

B!T O - MUST BE ONE 


BiT 1© - O - WORD COUNT(THO'S COMPLIMENT) 
FOR READ HEADER FUNCTION 


BIT 15-0 - DISK HEADER OF SECTOR (FIRST PEAD) 
- ZERO WORD «(SECOND READ) 
- HEADER CRC ‘(THIRD PEAD) 


FOR GET STATUS FUNCTION 


HAS DRIVE STATUS 


15 - WRITE DATA ERROR 

14 - CURRENT HEAD ERROR(CHE? 
WRITE LOCK STATUS(UL) 
SEEK TIME OUT(SKTO) 
SPIN ERROR(SPE) 

WRITE GATE ERROR (WGE) 
VOLUME CHECK (VC) 

DRIVE SELECT ERROR(DSE) 
RESERVED(O) 


—_ 
a 


1 
1 
1 


MODMNMOMDDODMMD 
AAA AHHH 
tWwFtWT VHDVORKto 


0 -STATE BITS 

C LOAD STATE 

- SPIN UP 

BRUSH CYCLE 
LOAD HEADS 
SEEK - TRACK COUNTING 
SEEK - LINEAR MOLE 
UNLORD HEALS 
SPIN DOWN 


° 
- 


“OWE iby 
‘248006 





an 


SEQ 0023 


6.0 TEST SUMMARIES SEQ 0024 


PROGRAM DESCRIPTION 


THE PROGRAM WILL TRY TO SIMULATE A USER ENVIRONMENT WITH 
RANDOM SELECTION OF DRIVES PERFORMING RANDOM OPERATIONS 
OF GET STATUS, SEEK. READ AND WRITE. 


INITIALLY THE BAD SECTOR FILE IS RECOVERED FROM EACH 
DRIVE AND STORED. THEN EACH PACK IS ENTIRELY WRITTEN 
RANDOMLY WITH ONE OF EIGHT PREDETERMINED PATTERNS. 


THE MAIN LOOP 1S A CONTINUOUS LOOP OF THE FOLLOWING STEPS 
1 RANDOMLY SELECT A DRIVE 


. CHECK CONTROLLER OF SELECTED DRIVE IS NOT BUSY. 
THEN STEP 3; ELSE STEP 1 


3. RANDOMLY SELECT FUNCTION FOR ORIVE 
1F WRITE CHECK NEEDED; THEN STEP 4 
1F SEEK NEEDS VERIFICATION: THEN STEP 12 
1F IN PROCESS OF RETRY; THEN STEP 6 
1F IN PROCESS OF SEEK RETRY; THEN STEP & 
1F GET STATUS: THEN STEP 5 
1F SEEK; THEN STEP 7 
if READ; THEN STEP 13 
1F WRITE; THEN STEP 17 


ISSUE WRITE CHECK: GO TO STEP 1 


4 

5. ISSUE GET STATUS; GC TO STEP 1 

® ISSUE LAST FUNCTION; GO TO STEP 1 

? GET RANDOM CYLINDER AND HEAD W! THIN 
SOFTWARE PARAMETER LIMITS 

s. CALCULATE DIFFERENCE TO NEW POSITION 

2 ISSUE SEEK 

10 SET POSITION VERIFICATION NEEDED FLAG 

1 GO TO STEP 1 

12. ISSUE READ HEADER. THEN STEP 1 

13. GET RANDOM WORD COUNT WITHIN LIMITS 

14. GET RANDOM SECTOR WITHIN LIMITS 

15. CHECK THAT WORD COUNT AND SECTOR FIT 
ON TRACK IF THEN STEP 16. ELSE FIX 

16. ISSUE READ: GO TO STEP 1 


17. GET RANDOM WORD COUNT WITHIN LIMITS 





21. 
THE PROGRAM WILL STAY WITHIN THAT MAIN LOOP UNTIL INTERRUPTED 


GET RANDOM SECTOR WITHIN LIMITS 


CHECK THAT WORD COUNT AND SECTOR FIT 
ON TRACK IF THEN STEP 20; ELSE FIX 


SELECT RANDOM PATTERNS IN 128 WORD CHUNKS UNTIL WORD 
COUNT DONE AND WRITE BUFFER IN MEMORY. 


ISSUE WRITE; GO TO STEP 1 


OUT BY A FUNCTION FINISHING AT WHICH TIME THE INTERRUPT 
SERVICE ROUTINE WILL START EXECUTION. 


1. 


38. 


4A. 


READ ALL REGISTERS OF CONTROLLER THAT 
INTERRUPTED AND SAVE IMAGES 


IF NO ERROR SET; THEN STEP 3; ELSE STEP 14 
ges FUNCTION WHICH CAUSED INTERRUPT 
F WRITE CHECK; THEN STEP 3A 
iF GET STATUS; THEN STEP 5 
\F SEEK; THEN STEP 4A. 
1F READ HEADER; THEN STEP 7 
IF READ; THEN STEP 9 
IF WRITE; THEN STEP 38 
CLEAR WRITE CHECK NEEDED FLAG, THEN STEP 4 
SET WRITE CHECK NEEDED FLAG IF REQUESTED THEN STEP 4 
IF RETRY > O THEN REPORT SOFT ERROR, ELSE STEP 4A 
EX!T TO MAIN PROGRAM 
CHECK STATUS FOR: NO ERRORS 
COVER CLOSED 
BRUSHES HOME 
HEADS OUT 
SEEK LINEAR/TRACKING 
IF THEN STEP 4; ELSE STEP 6 
REPORT STATUS ERROR: GO TO STEP 4A 


SET VERIFICATION DONE FLAG COMPARE PRESENT POSITION 
WITH HEADER WORD IF THEN STEP 4A; ELSE STEP 8 


REPORT MIS-SEEK, SET NEW POSITION; GO TO STEP 4 
1F DATA TO BE COMPARED; THEN STEP 10; ELSE STEP 4 


CHECK VALIDITY OF FIRST TWO WORDS: IF THEN STEP 12; 
ELSE STEP 11. 


REPORT GARBLED DATA: GO TO STEP 4 


CHECK WOROS READ IN IF OKAY THEN STEP 4A 
ELSE STEP 13 


SEQ 0025 


34. 
7.0 PROGRAM LIST 


REPORT DATA ERROR. GO TO STEP 4 

1F DRIVE ERROR; THEN STEP 33; ELSE STEP 15 
\F NXM; THEN STEP 18; ELSE STEP 16 

\F OPI; THEN STEP 18; ELSE STEP 17 

\F OLT; THEN STEP 18; ELSE STEP 20 

IF RETRY < LIMIT THEN STEP 4A, ELSE STEP 19 
REPORT HARD ERROR; CLEAR FLAGS; GO TO STEP 4A 
1F HCRC; THEN STEP 24; ELSE STEP 21 

1F DCRC, THEN STEP 29; ELSE STEP 22 

1F HNF, THEN STEP 30; ELSE STEP 23 

YOU SHOULD NEVER GET HERE 


“IF DOING RERD/WRITE THEN STEP 25 


1F DOING READ HEADER THEN STEP 26 


CHECK IF DA 1S BAD SECTOR THEN STEP 4A; ELSE STEP 18. 
READ 4O HEADERS. IF ALL GOOD THEN STEP 27; ELSE STEP 28 


REFORT SOFT HEADER CRC; GO TO 4A 


FIGURE OUT BAD HEADER IF IN FILE THEN STEP 4A; ELSE STEP 18 
CHECK IF DA-1 1S IN FILE fF THEN STEP 4A: ELSE STEP 18 


READ HEADER. IF ON CORRECT TRACK THEN STEP 
31; ELSE STEP 32 : 


CHECK IF DA 1S IN FILE IF THEN STEP 4A, ELSE STEP 15 
REPORT TRACK(NG; FIX POSITION. GO TO STEP 4 ...4* 


» 


ACT UPON: ve x 


GO TO STEP 4 
ING 


SEQ 0026 





wee wr wwree erties 


BIT AND OFFSET DEFINITIONS 
GLOBAL DATA ae CONSTANTS 


SOFTWARE PARAMETERS 
STATISTIC CODE 
INITIALIZATION CODE 
GLOBAL SUBROUTINES 
PROGRAM MAIN LOOP 
ROUTINE TO SETUP AND ISSUE GET STATUS 
ROUTINE TO SETUP AND ISSUE SEEK FUNCTION 
ROUTINE TO LOAD READ HEADER AND ISSUE IT 
ROUTINE TO LOAD WRITE DATA COMMAND 
ROUTINE TO LOAD READ DATA COMMAND 
SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING 
ROUTINE TO LOAD FUNCTION 
INTERRUPT SERVICE ROUTINES 
CONTROLLER ERROR CHECK ROUTINE 
COMMAND SERVICE at ls 

K ‘ 


READ : 

READ HEADER 

GET STATES 

WRITE S 
DRIVE ERROR SERVICE 
RETRY LIMIT ROUTINE 
LIST OF FUNCTION ROUTINES 
BAC SECTOR FILE ROUTINE 
ROUTINE TO DROP DRIVE 
ROUTINE TO CHECK DATA 
ROUTINE TO WAIT FOR CONTROLLER READY 
GET STATUS/DRIVE RESET ROUTINE 
ROUTINE TO GENERATE A RANDOM NUMBEP 
ROUTINE TO WRITE PACKS INITIALLY 
ROUTINE FOR SYSTEM CLOCK 
HEADS HOME ROUTINE 
RANDOM WC AND DA ROUTINE ‘ 
ROUTINE TO DUMP BUFFER ON OCK 
ROUTINE TO CHECK FOR BAD SECTOR 
DRIVE INFORMATION BUFFERS 


4 





SEQ 0027 


eS 









































OUTERR 
OMZRLER 


MACYL1 30¢1046) 


PL 


002000 


002000 


062900 


002074 


O6-0EC-77 18:09 PAGE 83 


14-NOV-77 14: 04 


002000 


000000 
000000 


011266 
000000 


. ENRBLE AMA 
. ENABLE ABS 


-NLIST ME, CND, MO 


. =2000 


SVC 
SVC INS=0 
SVCTAG=0 


POINTER ALL 


BGNMOD MDHEDR 
HEADER 
ASCII 
. ASCII 
. ASCII 
ASCII 
. ASCII 
. BYTE 
. BYTE 
. BYTE 
ASCH 
ASCII 
. BYTE 
. BYTE 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
_ WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
_ WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
_ WORD 
. HORD 
_ WORD 


DZRLE.A.0 
aa 


oon 


aAd 
a00 
CSREVISION 


. CSEIT 


0 


oo0000o 


LSCISPATCH 


SEQ 0028 


aes 


OUTERR 
OZRLEA 


ie 


mt ee. 


Oe ee ee ee ee ee ee 


ee a a a a a 
———— == we ewer ewe ew wow = 


MACY11 
Pil 


002076 
002100 


002100 
002100 
002102 


002104 
002104 


OOzt1-2 
OGlitc 


30(1046) O6-DEC-77 
14-NOV-77 14: 04 


027706 


oco000 
000001 


+ tee 030460 
O02112 


1900000 
040000 
020000 
016000 
004000 
002000 
001000 
000400 
000200 
00U100 
000040 
090020 
000010 
000004 
000002 
000001 


001000 
000400 
009200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


18:09 PAGE 83-1 


. WORD 
ENDMOD 


DEVREG 
. WORD 
. BLKW 
DEVT YP 


000 -ASCIZ 
. EVEN 


LSLAST 


<RLO1> 
ORLO1d 


.SBTTL BIT AND OFFSET DEFINITIONS 


DEFINITIONS 


BGNMOD § GLBEQAT 


EQUALS 


> BIT DIFINITIONS 


BIT1S== 100000 
BITi4== 40000 
BiTi3== 20000 
BiTi2== 10000 
BIT1iz= 4000 
B1T10== 2000 
BITO9== 1000 
BITO8== 400 
B1TO7== 200 
B!TO6== 100 
BITOS== 40 
BITO4¥== 2 
BITO3== 10 
BiTO2== 4 
BITO1== 2 
B!TOO== 1 
BlT9== BITOS 
BITS== BITOS 
BiT7== B1TO7 
BiTé== BITOS 
BiTS== BITOS 
BiT4== BITOY 
BiT3s= BITOS 
BiT2== BITO2 
BiTizs= BITO! 
BiTO== B1ITOO 
: EV 


ENT FLAG DEFINITIONS 
EF 32: EF 17 RESERVED FOR SUPERWISOP TO PROGRAM COMMUN! © 


ATION 


a 


— 





QUTERR 
DZPLER. 


a a ee ee ee 
_ eo nr wre wwwee ew o 


ee ee ee ee ee ee ee ee ee ee ee ee ee 


Fn ae tan En an eee 


MACY11 30¢1046) O6-DEC-77 


Pil 


14-NOV-77 14: 04 


000040 
000037 
000036 
000035 
000034 


000020 
000017 
000016 
000015 
000014 
000013 
000012 
000011 
000010 
000007 
000006 
oo0005° 
coo004 
000903 
000002 
000001 


000340 
006300 
000240 
000200 
000140 
000100 
000040 
oou000 


020000 
000002 
000004 
000006 


009000 


E 3 
2 
BIT AND OFFSET DEFINITIONS 
+  EF16: EFO1 AVAILABLE FOR PROGRAM USE 


EF. START== 32. 
EF. RESTART== 31. 
EF. CONTINUE== 30. 
EF. NEW== 29. 
EF. PWR== 28. 


18:09 PAGE 83- 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 

A NEW PASS HAS BEEN STARTED 

A POWER-FAIL/POWER-UP OCCURRED 


We We We Be Be 


ORK NWEWOD 


mm 

~" 

oO 
—PWeMOnNDWOK—HWtwW 
= 60 EF OS 00 Oe OO 


| PRIORITY LEVEL DEFINITIONS 
PRIO? 


z= 340 
PRIO6== 300 
PRIOS== 240 
PR!Q4== 200 
PPIO3== 140 
PRIOZ== 100 
PRIOi== 40 
PRIOO== 0 
c$=0 >CONTROL AND STATUS OFFSET 
BA=2 >BUSADORESS OFFSET 
DA=4 :DISK ADDRESS OFFSET 
MP=6 >MULTI PURPOSE OFFSET 


CONSTANT OFFSETS FOR INDIVOUAL DRIVE BUFFERS 
>THE ONLY POSITION THAT IS CRITICAL IS THAT OF 


-“"pppas"” iT MUS T (MUST) BE THE LAST ENTRY OF THE BUFFER i 
SKCNT=0 > SEEK OPERATION COUNT 

RXFRI=2 ‘READ OPERATION COUNT (BITS) LOW ORDER 
RXFRZctem oe % a) HIGH ORDEP 
WXFR1I=6 i WRITE OPERATION COUNT (BiTS) LOW OPDES 
WXFR2=10 ; * HIGH OPDEP 
ERRCNT=12 >ERROR COUNT - HARD 

SFTCNT=14 ERROR COUNT - SOFT 

SKECNT=16 »SEEK ERROR COUNT 

DERCNT=20 DRIVE ERROR COUNT 

OCRCER=22 DATA CRC ERROP COUNT 

HCRCER=74 HEADER CRC ERP OR COUNT 


SEQ 0030 | 


-_ 


OUTERR 


























































DZPLEA. 


MACY11 30(1046) 
14-NOV-77 14: 


Pil 


000026 
000030 
000032 
000034 
000036 
000040 
000042 
OCO044 
000046 
000050 
000052 
000054 
oocose 
000060 
000062 
000064 
000066 
000070 
000071 
000072 
co0074 
000976 
000:00 
000102 
000104 
00010€ 
000110 
oo0112 
000114 
000116 
000120 


000001 
000001 
000100 
100000 
040000 
100000 
040000 
020000 


oo0002 
ooo0ns 


06-DEC-77 
04 
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F 3 





BIT AND OFFSET DEFINITIONS 


DLTCNT=26 
OP ICNT=30 
HNFERR=32 
NXMCNT=34 
RETRY=36 
BOA=40 
BMP=42 
FUNC=44 
BCSADR=46 
LSTHOR=50 
RTYPE=52 
SKCNT1=54 
PRFLGS=56 
RXFR3=60 
WXFR3=62 
LSTOA=64 
DIFWO=66 
DP HOUR=70 
DPN PN=71 
TRERR=72 
DATCER=74 
DOWCK=76 
SERNM1=100 
SERNM2=102 
OcS=104 
DRSEL=106 
BBA=110 
BSECPT=112 
RSEEK=114 
SOF TCS=116 
PRPOS=120 


SKDON=B1T0 
OROY=B!TO 
INTEN=Bi Te 
ERR=BIT1IS 
DERR=B!T14 
WOE=B1T15 
HCE=BIT14 
WL=B1T13 
SK TO=B1T12 
SPE=BIT11 
WGE=B81T10 
VC=BIT9 
OSEsBITS 
NXM=BIT12 
DLT=BIT12 
OCRC=BIT11 
HCRC=BIT1I1 
NF =B1T12 
oP 1=B1T10 
CROY=B1T7 
BA17=B1TS 
BA16=B!T4 
WRCHK=B1T1 


GSTAT=B'T2 


;DATA LATE ERROR COUNT 
OPERATION INCOMPLETE ERROR COUNT 
HEADER NOT FOUND ERROR COUNT 
;NON EXISTANT MEMORY ERROR COUNT 
+ PRESENT RETRY NUMBER 

DISK ADDRESS CONTENTS 
PRESENT MULTIPURPOSE CONTENTS 
+LAST FUNCTION LOADED 
+CSR_ IMAGE OF LAST COMMAND 
;LAST POSITION ON DISK 
SERROR ON WHICH RECOVERY |S BEING TRIED 
+LOW SEEK COUNT 
+ INTERNAL FLAGS 
+ THIRD ORDER READ COUNT 
> THIRD ORDER WRITE COUNT 
DISK ADDRESS AT SOFT ERROR 
>LAST DIFFERENCE WORD OF SEEK 
>HOUR OF DRIVE DROPPED 
MINUTE OF DRIVE DROPPED 
> TRACKING ERRORS COUNT 
*DATA CMP ERRORS 
;PERFORM WRITE CHECK 
SERIAL NUMBER OF CARTRIDGE 
SERIAL NUMBER OF CARTRIDGE 
CSR ADDRESS 
/ORIVE SELECT BITS(8.9. 10) 
>PRESENT BUS ADDRESS CONTENTS 
>POINTER TO BAD SECTOR FILE 
/SEEK IN PROCESS OF RECOWEPY 
:CSR OF SOFT ERROR 
“PRESENT POSITION ON DISK . 


‘DRIVE READY 

> INTERRUPT ENABLE 

/ COMPOSITE ERROP 

> DRIVE ERROR 

/WRITE DATA ERROR 

>HEAD CURRENT ERFOR 

>WRITE LOCK 

>SEEK TIMEOUT ERROR 

;SPINDLE TIMEQUT/UNDER “OVER SPEED 
/WRITE GATE ERROR 

> VOLUME CHECK 

/ORIVE SELECT ERROR 
;NON-EXISTANT MEMORY EPROP 

: DATA LATE 

DATA CRC ERROR 

+ HEADER CRC ERROR 

»HEADER NOT FOUND ERROR 
OPERATION INCOMPLETE ERPOP 
* CONTROLLER READY 

/ EXTENDED BUS ADDRESS BIT 17 
/EXTENDED BUS ADDRESS BIT te 
;WITE CHECK FUNCTION CODE 
'GET DRIVE STATUS FUNCTION CODE 


SEQ 0031 


eV 


_a 


OUTERP 


OZPLEA. 


Pil 


OOl112 


MACY11 3001046) a 7? 


14-NOV-77 14: 


000006 
000010 
000012 
000014 
000013 
000003 
000001 
o0co004 
000020 
000100 


000000 
000002 
000004 
ooco0e 
000010 


000900 


G 3 eas ea a oa oR ae Serra 
18:09 PAGE 83-4 
BIT AND OFFSET DEFINITIONS SEQ 0032 


SEEK=B1T1'!B1T2 + SEEK FUNCTION CODE 

ROHOR=B1T3 ;READ HEADER FUNCTION CODE 

WRITESBITS!BITI WRITE FUNCTION CODE 

T READ FUNCTION CODE 

T1i!B1TO ;DRIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD 

1T0 ;GET STATUS COMMAND CODE FOR DRIVE COMMAND WORD 
;MARKER BIT FOR DRIVE COMMAND WORD(SEEK,GET STATUS) 

S1GN= BIT DIRECTION FOR SEEK(O=AWAY FROM SPINDLE) 

SKHS=B1T4 +HEAD SELECT FOR SEEK 

HEAD=B1T6 ;HEAD SELECT FOR READ. WRITE.GET STATUS 


; OFFSET FOR HARDWARE P-TABLE 


CSR=0 
VECT=2 
PRIOR=4 
DRBT=6 
CNT=10 


OFFSET FOR SOFTWARE P-TABLE ‘ 


RLT=0 
ELT=2 
SET=4 
DAT=6 
SkKT=210 
TYTs12 
POT=14 
DOT=16 
CHFLG=26 
MXB=22 
MXH= 24 ; 
MNH= 26 U 
MxC=30 

- MNCS32 
MxS=34 
MNS= 36 
DCKFG=40 
OPFLG=42 
MNB=44 
SEL=46 
OPFLG=50 
DET=52 
ROF =54 
RAN=56 
PAT=60 
SPLT=62 
CLMT=64 
AUTO=66 
STIP=70 
Wok =72 
ocO=74 


aman 


ENDMOD 





OUTERF 


OZPLEA. 


MACY11 
Pil 


002112 


002112 
002114 


002242 


30(1046) O6-DEC-77 
14-NOV-77 14: 04 


000000 


900000 


18:09 PAGE 
BIT AND 


. SBTTL 
BGNMOD 


RECNT: 
RWCNT: 
WHY: 

DRUT: 

DRPRS: 
SYSMSK: 
HI NUM: 
LONUM: 
CYLMSK: 
SECMSK: 


[THE FOL 





H 3 
83-5 
OFFSET DEFINITIONS 


GLOBAL DATA AND CONSTANTS 


GLBDAT 

.WORD O +READ ERROR COUNT 

-WORD QO +R/W ERROR COUNT 

.WORD OQ ; REASON FOR DROPPING DRIVE 
.BYTE O DRIVES UNDER TEST 
.B8YTE @ ;DRIVES PRESENT 

.WORD O ;MASK FOR O-7 ORIVES 
-WORD = 176543 PRIME FOR RANDOM 
.WORD 123456 NUMBER GENERATOR 

.WORD 100177 *>MASK FOR CYLINDER ONLY 
.WORD 100077 _  >MASK OUT SECTOR BITS 


LOWING LOCATIONS ARE CLEARED AS A GROUP (DOWN TO ‘STFLG"? 


> THEREFORE DON T INSERT ANY CONSTANTS 


CNTLR1: 
CNTLRZ: 
LSTOR1: 
LSTOR2: 
BCSR: 
BVEC: 
BPRIOR: 
BORSEL: 
HDRFND- 
CHK SEC: 
DECNT: 
TEMPO: 
TEMP 1: 
TEMP 2: 
TEMP 3: 
TEMPS: 
TEMPS: 
TEMP6 
TEMP ?: 
TEMPS: 
TEMPS: 
VECTI: 
VECT2- 
PRIORI: 
PRIORZ: 
GODAT: 
RNTEMP: 
INTERVAL: 


CSR OF CONTROLLER 1 (LUN 0-3) 


-WORD = 1°4400 
-WORD Q >CSR OF CONTROLLER 2 (LUN 4-7) 
-WORD Q >BUFFER POINTER OF DRIVE 
-WORD Q BUFFER POINTER OF DRIVE 
-WoRD 0 :CSR FROM P- TABLE 
word Q :WECTOR “ 
.WoRD QO 
-WORD Q /ORIVE ™ " 
-WoRD 0 -FLQG TO INDICATE HOP IN BAD LIST 
. WORD © / SECTOR OF ERROR - USED BY PAG SECTOR LOCATION 
wort 0 >DATA ERROR COUNT \ 
WORD 0 > TEMP LOCATION 
-wWoRt @ “TEMP LOCATION 
-WORD 9 TEMP LOCATION 
WORD 0 pe 3 
WORD Q , 
-WoRD = Q : : 
.word 0 ’ ; 
-WoRD Q 
.woRD 0 
-wWoRD QO ‘ee iz 
-WORD = 320 VECTOR OF FIRST CONTROLLER 
.WORD @ -WECTOR “ INO 
.woRd 0 
-WORD 0 
-WoRD 0 
.woRD 0 : . 
wort 860 > TIME BETWEEN REPORTS 
: .WORD 0 >LAST TIME ON SYSTEM CLOct 
> ,WoRO QO >SECONDS OF SYSTEM CLOCK 
-WoRD C0 MINUTES OF SYSTEM CLOC 
“WORD OQ HOURS OF SYSTEM CLOCK 
-WORD 0 / IMAGES OF PEGISTESS 
WORD 0 -ON INTERRUPT pa ase 
WORD 
-woRD 0 


SEQ 0033 | 


ee ee ee es 


cesses eigen ES ECT CG RA eC ECE EN EC ETP 


i 


QUTERR MACY11 30(10%6) O6-DEC-77 18:09 PAGE 83-6 
DCPLEA. P11 14-NOV-77 14: 04 GLOBAL DATA AND CONSTANTS SEQ 0034 


3032 002244 000000 E.MP1: .WORD O ; 
3033 002246 000000 E.MP2: .WORD O ; 
*FLAG INDICATING PRESENSE OF SYSTEM CLOCK 


3034 002250 9000000 SYSCLK: .WORD 0 
3035 002252 000000 BUF 1: .-WORD O ;BUFFER FOR FIRST CONTROLLER 
3036 002254 000000 BUF 2: .WORD O ;BUFFER FOR SECOND CONTROLLER 
2037 002256 000000 MAXWC: .WORD 0 ;MAX WORD COUNT DETERMINED BY CORE 
3028 002260 oo0bv00 UUT: -WORD OQ ;NUMBER OF UNITS ON SYSTEM 
3039 002262 ocd000 PWRFLG: .WORD OQ ;PCWER FAIL INDICATOR 
. 3040 002264 000000 TRPFLG: .WORD 0 ; TRAP OCCURANCE FLAG 
a 002266 000000 STFLG: .WORD O ; START FLAG 
3042 5 
as >END OF MASS CLEAR 
TO44 ; 
3045 002270 000000 CNTFLG: .WORD OQ > CONTINUE FLAG 
3046 002272 OO0000 - FASCII: .WORD OQ ;ASCII MESSAGE OF FUNCTION 
047 002274 900000 FASPNT: .WORD OQ ;POINTER 
T04§ OO02276— 000000 DWCNT: .WORD OQ ERROR COUNT 
3049 O62300 o000000 OWCNT1: .WORD C > ERROR COUNT 
3050 oO02302 900004 ERRVEC: .WORD 4 > ERROR VECTOR 
3051 O02304 dO00034 \ wet: WORD 34 > STATES ALLOWED 
3052 002706 cono3s ST2: WORD 36 STATES ALLOWED 
3053 002310 9o009CN CPCALL: .WORD OQ 
3054 902212 ad0ntr INCALL. . WORD OQ 
3057 
3058 
3059 SBTTL GLOBAL MESSAGES 
3060 
3061 002314 BGNMOD GLET*T 
3062 
3062 :GLOBAL TEXT 
3064 
3065 
3069 
3070 OO2714% O44524 042515 020072 TIME:  ASCIZ “TIME: 


3071 OG2223 O4O 046122 051503 MRLCS: .ASCIZ “ RLCS: ' 
3072 002332 O40 051050 041514 CRLCS: .ASCIZ ™ «RLCS! 

3072? 002345 040 052506 O41516 MFUNC: .ASCIZ “ FUNCTION ™ 
3074 002361 O40 051050 O41114 CRLBA: .ASCIZ “ (RLBAD " 


3075 002373 O4O 051050 942114 CRLDA: ASCIZ ™ (RLOA). “ 
3076 002405 O40 051050 046514 CRLIP: ASCIZ “ CRLMP). 

3077 

3078 002417 104 O43111 053440 th ~ASCIZ /DIF WO. / 
3079 002430 040520 O45503 051440 CAR . ASC /PACK SERIAL #: 


3080 002450 047516 041440 042122 NOCRDY. . ASC /NO CROY’ 


3081 002460 051104 647040 052117 ONRDY: . ASC /OR NOT ROY/ 
3082 002473 104 020122 047516 NORDY: . ASC *DR NOT RDY W/O DR ERP” 
3083 002521 102 043525 000 PRGER: . ASC 


| 

| 

\ 

| 

12 /BUG/ 
3084 002525 111 044516 020124 NWRTS: yt 

\ 

\ 

! 

! 


2 

Z 

2 

Zz 

r4 

Z /INIT WR OF SEC BAC.” 
3085 002550 051440 041505 047524 SMSG: .ASCIZ 7 SECTOR: / 
3086 002562 047516 O43440 047517 EXHAUS: . ASCIZ 
3087 002576 047125 O44S04 043501 UDERR: .ASCIZ 
3088 002620 042523 045505 042440 MSKER: .ASCIZ 
3089 002631 123 043117 020124 MSFER: .ASCIZ 
3090 002650 051104 O42440 051122 ORVER: .ASC'2 


7NO GOOD HOR / 
/UNDIAGNOSABLE EPR.’ 
/SEEK ERR/ 

/SOFT ERR ENC DY 
/OR ERR/ 





] 
| 
} 
| 
' 
| 
3055 
3056 002314 ENDMOD | 
| 
3 
_ 


OUTERR MACY11 30(1046) O6-DEC-77 18:09 PAGE 83-7 : 
D2RLEA. Pil 14-NOV-77 14: 04 GLOBAL MESSAGES SEQ 0035 


3091 002657 104 020122 051105 MDERS: .ASCIZ /DR ERR WILL NOT RESET/ 
3092 002705 104 020122 052123 MDSER: .ASCIZ /OR STAT ERR/ 

3093 002721 126 046117 O41440 MVCER: .ASCIZ /VOL CHK WILL NOT CLR/Z 

3094 002746 051127 O43440 052101 WGEST: .ASCIZ /WR GATE ERR WILL NOT RESET/ 
3095 003001 104 020122 051105 MRDER: .ASCIZ /OR ERR - RECOVERED/ 

3096 003024 O40504 040524 O41440 MOCER: .ASCIZ /DATA CHP ERR/ 

3097 003041 110 051101 020104 MHDER: .ASCIZ /HARD ERROR/ 

3098 003054 O40504 040524 042040 DMPOCK: .ASCIZ /DATA OUNP - DCK/ 

3099 003074 051124 041501 O44513 TRACK: .ASCIZ /TRACKING ERR/ 

3100 003111 110 042122 O4244O ERLMTM: .ASCIZ /HRD ERR LNT EXC'D/ 

3101 003133 123 020113 051105 SERLMT: .ASCiZ /SK ERR LNT EXC'D/ 

3102 003154 043123 020124 051105 SFEMSG: .ASCIZ /SFT ERR LNT EXC'D/ 

3103 003176 O4C504 040524 042440 ODCONSG: .ASCIZ /DATA ERR LMT EXC'D/ 

3104 003221 104 020122 051105 DERMSG: .ASCIZ /OR ERR LMT EXC'D/ 

3105 003242 052502 043106 051105 OVER: .ASCIZ /BUFFER CHOSEN TOO BIG - WAS / 
3106 003277 122 050505 041040 REQ: .ASCIZ /REQ BY OPR/ 

2107 003312 054105 023510 020104 SEXHAL: .ASCIZ /EXH'D RETRY ON SEEK/ 

3108 003336 042110 020123 047516 UNLOAD: .ASCIZ /HDS NOT UNLD ON ERR/ 

3109 003362 051104 O53440 042114 NOLOAD: .ASCIZ /DR WLD NOT LD/ 

3110 003400 050117 051105 046040 SOPLMT: .ASCIZ /OPER LMTS EXC'D/ 

3111 003420 O40507 041122 046102 NOREV: .ASCIZ /GARBBLED DATA - CAN'T CHECK IT. 
3112 003457 115 051117 020105 MBDMSC: .ASCIZ /MORE THAN 16 BAD SECTORS’ 
3113 003510 047516 O43040 041501 HWSEC: .ASCIZ /NO FACTORY FILE” 

311% 003530 047516 O43040 042511 SWSEC: .ASCIZ /ND FIELD FILE/ 

3115 003546 026520 040524 046102 MPT: .ASCIZ 7P-TABLE: / 

3116 003560 O46111 020114 026520 ILLEG: .ASCIZ /ILL P-TABLEY 

3117 063574 053040 041505 047524 MVEC: -ASCIZ 7 VECTOR: 7 

3118 003606 047516 042040 044522 NODRIV: .ASCIZ /NO DRIVES/ 

3119 003620 042040 044522 042526 ODRNM: -ASCIZ 7 DRIVE: 7 


3120 003631 O4O 051514 020124 LPS: -ASCIZ 7 LST POS: 7 
3121 003644 042440 050130 O50040 EPS: .ASCIZ 7 EXP POS. / 
3122 003657 O40 042522 020103 RPS: ASCIZ ; REC POS: / 


3123 003672 051104 O42040 042111 NOPWR: .ASCIZ /DR DID REC'R FROM PUR LP’ 
3124 002723 101 020124 052502 BUSAD. .ASCIZ /AT BUS ADOR: / 


3125 003741 122 052105 054522 MRT: -ASCIZ ZRETRYS: 7 

3126 003752 O42440 051122 051117 ERT: .ASCIZ 7 ERROR TYPE: 

3127 003770 052123 052101 051525 NST: ASCIZ STATUS WAS: 

3128 004005 O40 044123 052517 NSTI: .ASCIZ / SHOULD BE: 

3129 004022 051040 052105 044522 RT1: .ASCIZ / RETRIES ATTEMPTED. 

3130 OO404S O4O 054105 023520 EXP: .ASCIZ 7 EXP'D: / 

3131 004056 051040 041505 042047 RCD: .ASCIZ 7 REC'D: 7 

3132 004067 104 044522 042526 DROP: -ASCIZ ZORIVE DROPPED 

3133 004105 040 047110 900106 MTHNF: .ASCIZ 7 HNF/ 

3134 004112 O4404O 051103 000103 MTHCRC: .ASCIZ 7 HCRC/ 

3135 004120 O42040 045503 000 MTOCRC: .ASCIZ 7 DCK/ 

3136 004125 O40 046104 000124 MTOLT: .ASCIZ / OLT/ 

3137 004132 O47440 044520 000 MTOPI: .ASCIZ 7 OPIY 

3138 004137 O40 054116 000115 MTNXM: .ASCIZ 7 NXM/ 

3139 004144 042040 053122 O00 MTORV: .ASCIZ 7 DRV/ 

3140 004151 124 051505 044524 MSTAPT: .ASCIZ /TESTING STARTED/ 

3141 004171 127 044522 O44524 MSWRPK: .ASCIZ /WRITING PACK / 

3142 

3143 ; THIS LIST OF ASCII TEXT 1S USED AS A TABLE FOR PRINTING 
7144 /FUNCTIONS IN ERROR MESSAGES TABLE IS “MTCR - MTPD". 
3145 >THE ORDER 1S IMPORTANT AS WELL AS THE LENGTH OF EACH 


3146 /ASCIZ STRING. EACH STRING IS SEVEN(10) BYTES PLUS ZERO 





GUTERR 


OCPLEA. Pl 


3147 
314 
3149 
3150 
3151 


ich 3011046) O6-DEC- 
14: 04 


14-NOV-77 


004210 O53440 041522 
004220 O43440 051524 
004230 051440 042505 
004240 051040 044104 
004250 O53440 044522 
004260 051040 040505 


o04279 


00427 


004270 

004270 004737 005460 
004274 

004274 

004274 104023 


004276 004737 005466 


004302 010146 

004304 012746 003657 
004310 016446 000120 
004314 012746 O03644 
004320 016446 000050 
004324 012746 003631 
004330 016446 000066 
004334 012746 602417 
004340 012746 005777 
004344 012746 000011 


004354 062706 0900024 


004360 104023 


77 +18:09 PAGE 83-8 


045510 
040524 
020113 
051104 
042524 
020104 


aa 


K 3 re eS | 
GLOBAL MESSAGES SEQ 0036 


sFILL BYTE (TOTAL 8(EIGHT) BYTES) LONG. USED IN LINE1 
er eee Tere re eT ete eee re eT re 


MTCR: ASCIZ 7 WRCHK 

MTGS: ASCIZ / GTSTAT/ 
MNTSK: ASCIZ 7/7 SEEK / 
MTRH: ASCIZ / RDHOR 7 
MTUR: ASCIZ / WRITE 7 
MTRD: ASCIZ 7 READ / 


_ EVEN 
ENDMOD 
SBTTL ERROR MESSAGES 
BGNMOD GLBERR 
:GENERAL ERROR REPORT 
BGNMSG ERRI 


JSR PC, LINES 
ENDMSG 

L10000: 
EMT C$MSG 


-MIS-SEEK ERROR REPORT 


BGNNSG ERR2 
JSR PC, LINES 
PRINTB #FMTY, &DIFMSG. DIFUDC RY). #LPS.LSTHDR PY), REPS. PRPOS(R4Y), #RPS.R1 
MoV R1,-(SP) 
MoV @RPS, - (SP) 
MOV PRPOS(R4Y), -<SP) 
Mov #EPS, -(SP) 
mov LSTHDR(R4Y), - (SP) 
MoV @LPS, -(SP) 
MoV DIFWOCR4Y),-(SP) 
MoV #OIFMSG. -(SP) 


MoV @FMT4, - (SP) 
MoV #11,-(SP) 
MoV SP.RO 


L10001. 


OUTERR MACY11 30(104%6) 


ZRLEA. Pil 


~ = 
— 
Oty 
a 


004 362 
004 362 
004 366 
004 366 
004372 
004376 
004402 
004406 
004412 
004416 
004422 
0044 26 
004430 
004432 
0044 36 
0044 36 


» CO4442 


O0444eE 
004452 
004456 
004462 
004466 
004470 
004472 
004476 
004476 
004476 


14-NOV-77 1 


004 737 


016446 
012746 
017446 
012746 
016446 
012746 
012746 
012746 
01C600 
104014 
062706 


016446 
012746 


016446. 


012746 
C12746 
012746 
010600 
104014 
062706 


104023 


004737 


013746 
013746 
012746 
013746 
012746 
012746 
012746 
010600 
104014 
062706 


104023 


004737 
016400 


010046 


005214 
000064 


000007 


000020 


000052 
003752 
000C 36 
003741 
006030 
000005 


000014 


005460 


002306 
002304 
004005 
002242 
003770 
006044 
000006 


00ND1e 


005374 
000042 


06-DEC-77 
4: O4 


18:09 PAGE 83-9 
ERROR MESSAGES 


BGNMSG 


L10002: 


BGNMSG 


110002 


BGNMSG 


ERR3 
JS 


—~“y 


; SOFT. ERROR RECOVERABLE ERROR REPORT 


PC, LINE1 

#FMT2A, @CRLCS, SOF TCS(R4), ACRLBA, ABBA(RY), ACRLDA, LSTDACRY) 
LSTDACRY), -(SP) 

#CRLDA, - (SP) 

@BBACRY), - (SP) 

#CRLBA, -(SP) 

SOF TCS(R4), -(SP) 

#CRLCS, - (SP) 

#FNT2A. -(SP) 

ree 


P 
@FMNTS, MRT, RETRY(RY), RERT.RTYPECRY) 
RTYPE(R4), -(SP) 
#ERT, -(SP) 
RETRYC(RY),-(SP) 


;GET STATUS ERROR REPORT 


PC. LINES 
SFMNTG. #MST.E. MP. AMST1.STI-ST2 
ST2,- (SP) 
ST1,-(SP) 
ge 
E. MP, -(S 
#MST,-(SP) 
RFMTo,. -(SP) 


/ CATR ERROF SUMMARY 


PC, LINE2 

BMP CRY), RO 

#F MTOR. DECNT. RO 
RC. -(SP) 


SEQ 0037 


| 


eo 


OUTERR 


DZPLEA. Pil 


(8) 
(7) 





004564 
004570 
004574 
004600 
004602 
004604 
004610 
004610 
004610 


004612 
004612 
004612 
004616 
004622 
004626 
004632 
004634 
0046 36 
004642 
004646 
004646 
O04o46 


MACY11 30¢1046) 
77 


14-NOV- 


013746 
012746 
012746 
010600 
104014 
062706 


104022 


012746 
016446 
012746 
012746 
010600 
104014 
062706 
004737 


104023 


06-DEC-77 
14: 04 


002160 
006214 
000003 


000010 


004022 
000036 
006146 
000003 


p00010 
005460 


000107 
003620 


18:09 PAGE 83-10 
ERROR MESSAGES 


L10004: 


BGNMSG 


L10005: 


BGNMSG 


EMT 


JSR 
ENOMSG 
EMT 


of} —$ $5 $$ SSeS - —--— + - - 


DECNT, -(SP) 
RFMTOA, -(SP) 
#3,-(SP) 
SP,RO 
CSPNTB 

#10, SP 


CSMSG 
NON RECOVERABLE ERROR REPORT 


#FMTS8,RETRY(R4Y). RTI 
@RT1,-(SP) : 
RETRY(R4Y),-(SP) 


PC, LINES 


CS$HSG , 
BAD DATA COMPARE ERROR REPORT 


@FMTIO. STIME. HOUR. MINUTE. SECOND, #MRLCS, OCS‘P4), RORNM, <B. DRSEL+1(R4)> 
- (SP) 

DRSEL+1(R4), (SP) 

DCS(R4), -(SP) 

#MRLCS, -(SP) 

SECOND. - (SP) 

MINUTE, - (SF) 

@TIME.-(SP) 


#1i,-(SP) 


#24, SP 

@FMNTIOAR. SCRLBA. ABBA PY) SCPLOR. BDA PY), SEXP. GODAT. &RCD, (R2) 
#ecd. -(SP) 

GDDAT,. -( SP) 

BOACRY), -(SP) 

#CRLOA. -(SP) 

@BBACRY), - (SP) 

#CRLBA, -(SP) 

SFMNTIOR. -(SP) 

#11.-(SP) 


, 
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DZRLEA. P11 14-NOV-77 ERROR MESSAGES SEQ 0039 
(4) 005002 104014 EMT CSPNTB 
(4) Q005004 062706 000024 ADD #24, SP 
3224 005010 PRINTB #FMT10B.R2Z 
(8) 005010 010246 MOV RZ, -(SP) 
(7) 005012 012746 006373 MoV #FMT1OB. -(SP) 
(6) 005016 012746 000002 MOV #2, -(SP) 
(3) 005022 010600 MOV SP, RO 
(4) 005024 104014 j EMT CSPNTS 
(4) 005026 062706 000006 ADO #6, SP 
3225 005032 ENOMSG 
(3) * 005032 L10006: 
(3) 005032 104023 ENT CS$NSG 
3) s+ DRIVE ERROR 
eed ” 
3225 006034 BGNNSG ERR 
3230 005034 004737 005460 JSR PC, LINES 
3231 005040 PRINTB #FMT13, @MST.R1, #LPS, LSTHDOR(RY) 
(11) 005040 016446 9O00C50 MoV LSTHOR (RY), -(SP) 
(10) 005044 012746 003631 MoV LPS, -(SP) 
(9) 005050 010146 MoV Ri.-(SP) 
(8) 005052 012746 003770 MoV #MST. -(SP) 
(7) 005056 012746 006431 MoV #FNTIZ, - (SP) 
(6) 005062 012746 9000005 mov #5.-(SP) 
(3) 005066 010600 MoV SP. PO 
(4) 005070 104014 EMT CSPNTB 
(4) 005072 062706 000014 ADC #14. SP 
3232 005076 ' ENDMSG 
(3) 005076 10007: 
(3) 005076 104023 » Ent CSMSG 
3233 
3234 
3235 > INVALIO ENTRY IN P-TABLE REPORT 
3236 
3237 005100 BGNMSG ERRIO 
3238 005100 PRINTB #FMT11, #MPT.R1.8MRLCS, BCSR, AMVEC. BVEC 
(13) 005100 013746 002146 MOV BVEC.-(SP) 
(12) 005104 012746 003574 Nov @MVEC, - (SP) 
(11) 005110 013746 002144 Mov BCSR, -(SP) 
(10) 005114 012746 002323 — MOV @MRLCS, - (SP) 
(9) 005120 010146 MoV Ri. -(SP) . 
($) 005:22 012746 003546 MOV - #MPT,-(SP) 
(7) 005126 012746 006401 mov @FMT11,-(SP) 
(6) 005132 012746 000007 MoV #7, -(SP) 
(3) 005136 010600 MOV SP.RO 
(4) 005140 104014 - €nT CSPNTB 
(4) 005142 062706 600020 ADD #20. SP 
3239 005146 ENDNSG 
(3) 005146 L10010: 
(3) GO514%6@ 104023 EMT CSMSG 
3240 
3241 : 
3242 005150 BGNMSG ERRI2 
3243 


3244 005150 004737 O0054er JSP PC LINES 





a ee RY GY nr) Seca ek Tes ——— . 
UeRLRM. Pil 14-NUU-// 14: U4 ERROR MESSAGES SEQ 0040 c 
3246 005154 ENOMSG 
(3) 005154 110011: 
ey 005154 104023 EMT CSMSG 
ae 005156 BGNMSG ERR13 
3250 005156 004737 005460 JSR PC, LINES 
3251 005162 PRINTB #FNT12. #SMSG. BDACRS ) 
(9) 005162 016446 000040 MOV BDACRY), - (SP) 
(8) 005166 012746 002550 Mov #SMSG, - (SP? 
‘7) Q05172 012746 006421 MoV #FMT12,-(CSP) 
(o.» 005176 012746 000003 MoV #3,-(SP) 
(3) 005202 010600 MOV SP, RO 
(4) 005204 104014 EMT CSPNTB 
we) 005206 062706 9000010 ADD #10, SP 
seve 
3253 005212 ENOMNSG 
(3) 005212 L10012: 
at 24 005212 104023 EMT CSMSG 
3255 005214 (16437 OO0044 002274 LINE1: MOV FUNC CRY), FASPNT ;GET FUNCTION 
3256 005222 012737 004210 002272 MOV aMTCR,. FASC! I ;FIRST FUNCTION ASCIZ 
3257 005230 042737 000100 00227 BIC # INTEN, FASPNT ;CLEAR INTERRUPT ENABLE 
3258 005236 006237 002274 ASR FASPNT ; ALIGN 
3259 005242 005337 0602274 18: DEC FASPNT ;DOWN COUNT FUNCTION 
3260 005246 001404 BEQ 25 ; FOUND? 
3261 005250 062737 O00010 02272 ADC #8. -FASCII ;NO NEXT ONE 
3262 005256 000771 BR 1$ » LOOP 
3263 
— 005260 23: 
3266 005260 PRINTB #FMT1.8TIME, HOUR, MINUTE. SECOND. aMPLCS. OCS(R4), #ORNM, <B. ORSEL+1(R4)> 
(15) 005260 005046 CLR - (SP) 
(15) 005262 156416 000107 BISB DRSEL+1(R4), (SP) 
(14) 005266 012746 003620 MoV #DRNM, -(SP) 
(13) 005272 016446 000104 MoV DCSC(R4), - CSP) 
(12) 005276 012746 002323 MOV SMRLCS, - (SP? 
(11) 005302 013746 002226 MoV SECOND, -(SP) 
(10) 005306 013746 002230 Mov MINUTE, -(SP) 
(99 005312 013746 002232 MoV HOUR, - (SP) 
(8) 005316 012746 002314 MoV aTIME.-(SP) 
(7) 005322 012746 005626 MoV MFMT1,-(SP) 
(©) 005326 012746 000011 MoV #ii,-CSP) 
(3) 005332 010600 MoV SP, RO 
(4) QOOS334 ~104014 EMT CSPNTB 
(4) 005336 062706 9000024 ADC #24, SP 
3267 005342 PRINTB #e MT1A. #MFUNC. FASC! 
(9) 005342 013746 002272 MoV FASCII,-(CSP) 
(8) 005346 012746 002345 MoV #MFUNC, - (SP) 
(7) 005352 012746 005662 “MOV #FMTIA, -(SP) 
(6) 005356 012746 9000003 MoV #3-- (SP) 
(3) 005362 010600 MOV SP.RO 
(4) 005364 104014 EMT CSPNTB 
(4) 005366 062706 000010 ADD #10, SP 


3268 005372 000207 RTS PC 





Cc 4 ll ete WS 
QUTERR MACYI1 30(104G) Oe-DEC-77 18:09 PAGE 83-13 | 


3284 005626 052045 055045 022462 FHMT1: -ASCII = 7%T%224A: %22%A: %22./ 
3285 005647 O4S 622524 033117 FMTI7: .ASCIZ 7%T%06%TXO1/ 
3286 005662 052045 052045 047045 FMTIA: .ASCIZ /?%TXT“N/ 
11 /%ABEFORE ERR%T%06/ 
‘? 


3287 005671 O45 041101 O43105 FNTZ: . ASC 
LLTLOEX TOOT 2 00".Ni 


3288 005712 052045 O47445 O22466 FMT2A: . ASC 


DZRLEA.P11.  14-NOV-77 14:0 ERROR MESSAGES SEQ 0041 
3270 005374 LINE2: PRINTB FNT9, #TIME, HOUR, MINUTE, SECOND, &MRLCS, DCS(R4), RORNM, <B, DRSEL+1(R4)> 
(15) 005374 o05046 CLR -(SP) 
(15) 005376 156416 000107 BISB ORSEL+1(R4), (SP) | 
(14) 0054902 012746 003620 MOV #ORNM, - (SP) 
(13) OOS406 O16446 000104 MoV DCS(R4), - (SP) 
(12) 005412 012746 002323 MOV #MRLCS, -(SP) 
(11) 005416 013746 002226 MoV SECOND, - (SP) | 
(10) 005422 013746 002230 MOV MINUTE, -(SP) 
(9) 005426 013746 002232 MoV HOUR, - (SP) 
($) 005432 012746 002314 MOV #TINE, -(SP) 
(7) O05436 012746 006156 MoV #FMT9, - (SP) 
(6) 005442 012746 000011 MOV #11, -(SP) 
(2) OO05446 010600 MOV SP, RO 
(4) 005450 104014 EMT CSPNTB 
(4) 005452 062706 000024 ADD #24, SP 
3271 005456 000207 RTS PC 
3273 005460 004737 005214 LINE3: JSR PC, LINE1 7 
3274 005464 PRINTB #FNT2, #CRLCS, BCSADR(R4), #CRLBA, ABBACR4), SCRLOA, BDACR4), #CRLMP, BMP CRY) | 
(15) 005464 016446 O00042 Mov BMP(R4), -(SP) 
(144) 005470 012746 002405 MoV RCRLMP. -(SP) 
(13) 005474 O16446@ O00040 Mov BDACRY), - (SP) 
(12) 005500 012746 002373 Mow #CRLDA, - (SP) 
(11) 005504 017446 000110 MoV DBBACRY), - (SP) 
(10) 005510 012746 002361 MoV #CRLBA, -(SP) 
(9) O05514% O16446 o000%6 MOY BCSADR (RY), -(SP) 
(8) 005520 012746 002333 MOV #CRLCS, -(SP) 
(7) 005524 012746 005671 MOV #FMT2. -(SP) 
(6) 005530 012746 000011 MOV #11,-(SP) 
(3) 005534 016600 Moy SP, RO 
(4) 005536 104014 EMT CSPNTB 
(4) 005540 062706 000024 ADD #24, SP 
3275 005544 PRINTB #FMT3, #CRLCS.E. CS. #CRLEQ.£. BA. BCRLOA-E. DA. #CRLMP,E. MP 
(15) OOSS44 013746. 002242 MOV € MP, -(SP) 
(144) 005550 012746 002405 Mov #CRLMP. -(SP) 
(13) 005554 013746 002240 MOV EDA, -(SP) 
(12) 005560 012746 002373 MOV #CRLDA, -(SF) 
(11) 005564 013746 002236 MoV EBA, -(SP) 
(10) 005570 012746 002361 MoV #CRLBA, - (SP) 
(9) 005574 013746 002234 MoV ECS, -(SP) 
($) 005600 012746 002333 MoV @CRLCS. -(SP) 
(7) 005604 012746 005734 Mow #FMT3.-(SP) 
(6) 00561C 012746 000011 MOV #11, -(SP) 
(3) 005614 010600 MOV SP. RO 
(4) 005616 104014 EMT CSPNTB 
(4) 005620 062706 o0n024 ADD #24. SP 
3276 005624 000207 RTS P. 
3277 : 
3278 :FORMAT STATMENTS 
3279 | 
3283 





one 


OUTERR MACY11 30(10%6) O6-DEC-77 18:09 PAGE 83-14 
DZRLEA. P11 14-NOV-77 14: O04 ERROR MESSAGES SEQ 0042 | 


3289 005734 O4044S5 052101 O42440 FNT3: .ASCIZ /%AAT ERR %T%06%T%06%T%06%T%06%N/ 

3290 005777 04S 022524 033117 FMT: -ASCIZ = /7%TXOGXTXZOGANAT%06%T%06%N/ 

3291 006030 052045 O47445 022466 FHNTS: ~ASCIZ /%TXOOXTATANZ 

3292 006044 052045 O47445 022466 FNTE: -ASCIZ /%T%O06%T%O6%A OR %06%N/ 

3293 006072 047045 052045 055045 FHNT?: ~ASC!Z2 /4NK%T%Z224A: %224%A: %Z22%T%06%T/ 

3294 006125 O4S 030517 O87045 FMT7A: .ASCIZ /X%OLXNZT“A - %TXN/ 

3295 006146 042045 022466 022524 FNTS: -ASCIZ /%D6%TXNZ 

3296 006156 052045 055045 022462 FHT: -ASCIZ = /%T%Z22KA: %22%A: %22%T%06%T%01 ZN/ 

3297 006214 042045 022466 020101 FMT9A: .ASCIZ /%D6%A WORDS BAD OUT OF %D6%A WORDS READ%N/ 
3298 006266 052045 055045 022462 FMT10: .ASCIZ /%T%Z22KA: %22%A: %22%T%06%TX%017 

3299 006322 052045 O4744S 022466 FMTIOA: .ASCIZ /%T%06%T%O6%N%T%06%T%06%A AT BUS ADDRESS / 

3300 006373 O4S 033117 O87045 FMT10B: .ASCIZ /%06%N/ 

3301 006401 O4S 022524 O31117 FMT11: .ASCIZ 7%1%02%T%06%T%03/ 

2302 006421 O4S 022524 033117 FMT12: .ASCIZ /%TXOGXN/ 

3303 006431 O4S 022524 033117 FMT13: .ASCIZ /%T%06%T%06ZN/ 

2304 O06446 052045 055045 022464 FMTI30: .ASCIZ /%T%Z24%A NOW IS %Z24%N7 

3205 006473 O4S 022516 022524 FMT14: .ASCIZ /%NXTXNZ < 
3306 006502 O47445 022466 020101 FMTI4YA .ASCIZ /%06%A / 

3307 006511 04S 000116 FMT14C: .ASCIZ /%N/ 

3308 006514 O4O44S 047527 042122 FMTI4B: .ASCIZ ?%AWORD %D3%A. S/B %06%A WAS %06%N? 

3309 006556 C4O44S 051105 047522 FMT15: .ASCIZ /%AERROR(S) SET: XTXNZARECOVERY BEING ATTEMPTED/ 
3310 006634 O80445 047516 020124 FRMT16: .ASCIZ /%ANOT TESTING CS= %06%A DR= %01%N/ 

3311 006676 047045 052045 OOO FMT18: .ASCIZ /%NX%T/ 

3312 006703 O45 022516 022516 FMTSi1: .ASCIZ /%N%NZS10O%AKKX RLOI PERFORMANCE REPORT ***%N%N/ 
3313 006761 O4S 020101 051040 FMTSIA: .ASCIZ /7%A RUNNING&NZ 

3314 006777 O4S 020101 042040 FMTS1B: .ASCIZ /7%A DROPPED %22%A: %22%N/ 

3315 007030 052045 O47445 022465 FMTS2: .ASCIZ /%T%05%05%N/ 

3316 007043 O4S 051501 042505 FMTS2A: .ASCIZ /%ASEEKS: %DO%Z3%N%ZABITS READ: %D6%Z4%Z24%AR (%16)%N7 
3317 007130 O8044S 044502 051524 FMTS2B: .ASCIZ 7%ABITS WRITTEN: %D6%24%24%R_ (%16)2N/ 

3318 007174 O47045 O4O44S 051105 FMTS3: .ASCIZ /%NZARERRORS“NZADRIVE: %D6%A SEEK: %D6%A TRACK: %D6%A DATA: %D6%N/ 
3319 007275 © O4S O44101 051101 FMTS3A: .ASCIZ /%AHARD: %D6%A SOFT: %D6%N/ 

3320 007330 O40445 041504 035113 FMTS4: .ASCIZ /%ADCK: %D6%A HCRC: %06%A NXM: %D6%A HNF: %D6%N/ 
3321 OO7414 O40445 046104 035124 FMTSS: .ASCIZ /%ADLT- “%D6%A OPI: =~ DB%N%N,? 


7330 o074s2 EVEN 
3332 007%52 ENOMOD 
3334 0074S. BGNMOD HPTCODE 


3336 007452 BGNHW 
(3) 007452 900005 -WORD = LIQO13-LSHN.’2 


3338 007454 174400 WORD =174400 
3339 007456 000330 -WORD 330 
3340 007460 000240 -WORD 240 
3341 007462 000000 -WORD OQ 

3342 007464 000001 -woRO 1 


3344 007466 ENOHW 
(3) OO74e6 L10613: 


Ww 
NW 
toro 

to 





5 
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15 
ERROR MESSAGES SEQ 0043 | 


OZPLEA P11 14-NOV-77 14: 04 
} 

324g 007466 ENDMOD | 
= ‘ 
3348 _SBTTL SOFTWARE PARAMETERS | 
3350 007466 BGNMOD SPTCODE | 
2352 007466 BGNSW | 
Kt 007466 000037 WORD L10014-L$SW/2 | 
3254 007470 000001 LIMIT: .WORD 1 ;RETRY LIMIT | 
2265 007472 000003 ERLMT: .WORD 3 ;ERROR LIMIT 

2356 007474 000003 SELMT: .WORD 3 ; SEEK ERROR LIMIT | 
3357 007476 060650 DALMT: .WORD 265000 ;DATA XFER LIMIT (x(10%3)) (BITS) | 
3358 007500 023420 SKLMT: .WORD 10000 ;SEEK LIMIT 

7359 0907502 000170 TYINT: .WORD 120. ;TIME INTERVAL BETW/ STATISTICAL REPORT 

7360 007504 000030 CMRD: .WORD 24. ; COMPARE ON READ 

3361 007506 000003 DELMT: .WORD 3 ;ERRORS TO REPORT ON DATA COMPARE 

3362 007510 9000000 XCHFLG: . WORD 0 ; CHANGE OTHER PARAMETERS 

3363 007512 002400 T.MXB: .WORD 1280. ;MAXIMUM R/W TRANSFER BUFFER 

3364 007514 000100 T.MXH: .WORD 100 ;MAXIMUM HEAD SELECT 

3365 007516 coo000 T.MNH: .WORD 0 ;MINIMUM HEAD SELECT 

3366 007520 077600 T MXC: .WORD 77600 ;MAXIMUM CYLINDER 

3367 007522 o00000 T.MNC: .WORD 0 ;MINIMUM CYLINDER 

3368" 007524 o00047 T.MXS: .WORD 39 ; MAXIMUM SECTOR 

3369 007526 000000 T.MNS: .WORD 0 ;MINIMUM SECTOR 

3370 007530 000001 T.OCK: .WORD 1 : DATA DUMP ON DATA CHECK ERROR 

3371 007532 o00001 TORP. .WORD 1 ;DROP ON LIMIT REACHED 
3372 007534 000003 T.MNB. .WORD 3 ;MINIMUM BUFFER TRANSFER SIZE 

3373 007536 o00012 SFLMT: .WORD 10 ;SOFT ERROR LIMIT 
3374 007540 oo0000 T. STA: .WORD C ;DROP DRIVE ON PERFORMANCE REACHED 

3375 007542 000003 ORLMT: .WORD 3 ;DRIVE ERROR LIMIT 

3376 007544 900000 T.ROF: .WORD O >READ ONLY FLAG 
3377 007546 000001 TRAN: .WORD 1 :RANDOM SELECT OF PATTERNS 
3378 007550 oo0004 T.PAT: WORD 4 SONLY ONE PATTERN 4 = WORST CASE 

3379 007552 000001 T SLT. .WORD 1 ; SEEK RETRY LIMIT 
3389 007554 000200 T.CLT: .WORD 1238. :NUMBER OF ERRORS ON DOCK DUMP 

3381 007556 o00000 T. AUT: .WORD © ;AUTO ON START UP 

2382 007560 920000 T.STIP: .WORD 0 ;RESTRICT BUFFER SIZE 

3283 007562 900001 TWCK: .WORD 1 -0O WRITE CHECK 

7384 O07Se4 900012 T. OCD: .WORD 10. 
3385 
2386 OO07See ENOSH 

(3) 0756 L10014: 
3387 
3388 007566 ENDMOD 
3389 
3390 007566 BGNMOD = DSPCODE 
3391 
3392 007566 DISPATCH ! 

(4) 007566 o00001 word) 1 

(6) 007570 012320 “WORDT! 
3393 
3394 007572 ENDMOD 
3395 

SBTTL STATISTIC CODE 





OUTERR 
OZRLEA 


3338 


MACY11 
Pil 


007572 
007572 


007572 
007572 
007576 
007602 
007604 
007606 


007612 


007614 
007620 
007624 


00762e 


007632 
007636 
0076'2 


007644 


007646 
007646 
007646 


007650 


007650 
007650 


007650 
007650 
007654 


007656 
007662 
007666 
007672 
007676 
007676 
007702 
007704 
007704 
007706 
007712 
007716 


30(1046) 
14-NOV-7 


012746 
012746 
010600 
104016 
062706 


010446 


012704 
005764 
001402 


004737 


062708 
020427 
001 366 


012604 


104025 


*012700 
104041 


005037 
005037 
005037 
005037 


012700 
104050 


103076 
005237 
012704 
012702 


7 1 


06-DEC-77 
4: O04 


006703 
000001 


oco004 


024752 
000104 


011634 


00122 
O26172 


000340 


000050 
002312 
GO02266 
002270 


000034 


002262 
024752 
00000! 


18:09 PAGE 83-16 
STATISTIC CODE 


BGNMOD 
~ BGNRPT 


1S: 


ENDRPT 


L10015: 


. SBTTL 
BGNMOD 


RPTCODE 


PRINTS #FNTS1 
MOV #FMTS1,-(SP) 


MoV = SP RO 

EMT CSPNTS 

ADD =, SP 

MOV = RY, = (SP) 
Mov —- SDRBUF, R4 
TST = DCS(R4) 
BEQ = 28 

JSR PC, REPORT 
ADD =—s«RFRPOS+2,R4 
CMP «RY, BEND BUF 
BNE 1S 

now (SF )+,R4 
EMT COPPT 
ENDMOD 


INITIALIZATION CODE 
INIT TCODE 


BGNINIT 

SETPRI #340 

mov #340-R0 
EMT CSSPRI 

CLR OPFLG 

CLR INCALL 

CLR STFLG 

CLR CNTFLG 
READEF #EF. PWR 
MoV REF. PWR. PO 
ENT CSREFG 
BNCOMPLETE 3$ 
BCC 34 

INC PWRFLG 

MoV RORBUF.F4 
MoV #1,R2 


SEQ 0044 


;PRINT STATISTICAL HEADER 


;SAVE PRESENT VALUE OF R4 
> START OF DRIVE BUFFER 
1S THERE A ORIVE? 

+NO, GET NEXT ONE 

* TYPE OUT SUMMARY 

7;NEXT DRIVE 

AT THE END? 

NO, TRY NEXT 


>RESTORE RY 


START OF iNITIALIZE CODE 


:PRIOPITY TO SEVEN 


>CLEAP CONT 


INDICATE POWER FAIL 


aes 


OUTERR 
DZRLEA 


3442 
3443 
3444 
Buus 
3446 
3447 
Buus 
3449 
3450 

(3) 

(3) 
3451 
3452 
3453 
3454 
3455 





Pil 


010066 


MACY11 30(1046) 


007722 
007726 
007730 
007734 
007740 
007744 
007750 
007756 
007760 
007760 
007764 
007766 
007770 


007772 
010000 
010004 


010010 
010014 
010020 
010024 
010030 
010034 
010040 
010044 
010050 
010052 
010054 
010060 
010062 
010062 


130237 
001446 
016400 
052700 
010074 
012701 
032774 
001014 


012700 
104026 
005301 
001367 


012737 
004537 
000137 


004537 
004537 
CO5064 
005964 
005064 
0050964 
005064 
062704 
106302 
103323 
005737 
001406 


012700 
104034 


104045 
010037 
000137 


012700 
104050 


103004 


005237 
000137 


004537 


010070 
010070 
010072 
010076 
010102 
010102 
010106 
010110 
010:10 


010112 
010116 


010122 
010126 
010134 
010142 012700 
010146 
010150 
010154 


510156 
010162 


001374 


012704 
012702 


002120 


000106 
000200 
000104 
000074 
000001 


000012 


003672 
020144 
010044 


021062 
622374 


002250 


000001 


002224 
01104%e 


000036 


023616 
176543 
123456 
002134 


00227 


02475: 
023726 


06-DEC-77 
14-NOV-77 14: 04 


000104 


002116 


002124 
002126 


18:09 PAGE 83-17 


INITIALIZATION CODE 


115: 


12S: 


“15S: 


17S. 


4$ 


1$: 


-$ 
CLPDAT: 


EMT 
BNCOMPLE 
BCC 


“INC 


JMP 


JSR 
MoV 
MOV 
MoV 
CLR 
CMP 
BNE 


mou 
Mo 


RZ, DRUT 

13% 
ORSEL(R4Y), RD 
#200. RO 

RO. ADCS(R4) 
#60. .R1 

#1, 0DCS(R4) 


#NOPWR, WHY 
RS, DRORV 
13% 


RS. ISDRST 
R5, HDHOME 
PRFLGS(R4) 
RETRYCRY) 
DOWCK (RY) 
RTYPECRY) 
RSEEK(RY) 
RPRPOS+2. P& 
R2 

118 

SYSCLK 


CSREQTIM 
RO.LSTTIM 

POWER 

REF. CONTINUE 
REF. CONTINUE PO 
CSREFG 

TE 1% 

1$ 


CNTFLG 
ENO 


R5, CLEAR 
#176543. H!NUM 
#123456. LONUM 
#CNTLR1. PO 
(RO)+ 

RO. #STFLG+2 
CLROAT 


#ORBUF.R4 
#BSECO. Po 


CONTINUE FROM CONSOLE? 


NO. CONTINUE We INET CODE 


TES SET CONT FLAG. GO TO END OF INIT 
“CLEAR ALL OPIVE BUFFERS 

/PRIME PANDOM GENERATOR 

>CLEAP FLAGS 

MASS CLEAR 


“SETUP UP OR IWE BUFFER POINTER 
~SETUP BAC SECTO® POINTER 


SEQ 0045 


a 





OUTERP 
ZPLER. 


3430 
3491 
3492 
3493 
3494 
7495 

(3) 

(3) 
3496 


MACY11 30(1046) 


Pil 


010166 
010172 
010176 
010200 
010202 
010204 


010376 
010404 
010406 
010414 
010420 
010422 
010422 
010424 
010426 
010430 
010432 
010436 
010440 
010442 
010446 


010450 


06-DEC-77 


14-NOV-77 14: 04 


013703 
010337 
005001 
005703 
001522 


010100 
104042 


103110 


000406 


108462 
000240 
0035606 
005100 
005064 
005201 
005303 
062702 
000654 


002014 
002260 


002144 
002146 
002150 
002152 
002134 


002150 
002144 
002146 
002144 
002146 


N02252 
N11424 
002136 
002206 
002144 
002146 
002150 
002144 
002146 


002254 


011424 


000104 


H00040 


002212 
002134 
002206 
002134 
002206 


NOZ164 


NOLi44 


002136 
002210 


002136 
002210 
062206 
NO2Z1e4 


18:09 PAGE 83-18 


INITIALIZATION CODE 


1S: 


wn 
Fr 


6S: 


103: 


END: 


MOV LSUNIT,R3 

MOV R3, UUT 

CLR R1 

TST R3 

BEQ END 

GPHARD R1,R0 

MOV R1,R0 

EMT CSGPHRD 

BNCOMPLETE 12% 

BCC 12$ 

MOV (RO)+, BCSR 

MOV (RO) +, BVEC 

MOV (RO)+, BPRIOR 

MOV (RO), BORSEL 
TST CNTLR1 

BNE 2$ 

Mov BPRIOR, PRIORI 

MOV BCSR, CNTLR1 

MOV BVEC, VECTI 

CMP BCSR, CNTLR1 

BNE 5% 

CMP BVEC, VECTI 

BNE 10% 

mov #BUF 1, TEMP1 
JSP RS, FIL INE 

BR 11$ 

TST CNTLR2 

BNE 6$ 

CMP VECT1. BCSR 

BEQ 10$ 

MoV BCSR, CNTLR2 

MOV BVEC, VECT2 

MOV BPRIOR. PRIORZ 
CMP BCSR, CNTLRZ 

BNE 10% 

CMP BVEC, VECT2 

BNE 10% 

CMP VECT2, VECTI 

BEQ 10$ 

MoV #BUF 2, TEMP! 
JSR RS, FIL INF 
BR 11% 

ERROF 160..!LLEG- EPP10 
TRAP TSERCODE 
WORD 160 

.WORD  =ILLEG 

.WORD = ERRI0 

CLR OCS(R4) 

INC Ri 

DEC P3 

ADD #32. .R2 

BR 1$ 


: SAVE LSUNIT 

> INIT P-TABLE 

P-TPBLES LEFT? 
;NO,GO TO END 

;GET A P-TABLE 


;GET CSR 

;GET VECTOR 

;GET BPRIOR 

;GET DRIVE 

;DO WE HAVE CSR 1 YET? 

+ YES, THEN SEE IF IT'S IT 


>NQ, MAKE THIS ONE CSR 1 

;MAKE THIS VECTOR VECT! 

1S THIS CSR CNTLR1? 

;NO,GO CHECK AGAINST #2 

71S VECTOR PROPER? 

>NO, REPORT ERROR 

:FIRST CONTROLLER/FIRST BUFFEP 
FILL BUFFER 

>GO GET NEXT P-TABLE 

;HAVE WE GOT CSR #2 YET? 

> YES. CHECK THIS ONE AGAINST IT 
: 1S THIS VECTOR SAME AS CNTLR1 
> 1FSO, DON'T ALLOW IT 

;MAKE THIS ONE CSR 2 

> SETUP SECOND VECTOR 


: tS THIS CSR # 2? 

>NO, WELL WE DON'T ALLOW 3 

;DOES IT HAVE PROPER VECTOR 

NO, GO REPORT ERROR 

> 1S VECTOR OF FIRST EQUAL TO 
-WECTOR OF SECOND, YES REPORT ERROR 
: OTHER CNTLR/OTHER BUFFER 

»-LOAD BUFFER 


>NEXT 
>BAG P-fABLE 


. 


;POINT TO NEXT 

>COWN COUNT 

;NEXT BAD SECTOR FILE 
DO WHILE 


SEQ 0046 


oe oe) 


CUTERR 


DZRLEA. 


3539 


MACY11 30(1046) 


Pil 


010450 
010456 
010464 
010466 
010474 
010502 
010504 
010512 
010512 
010516 
010520 
010520 


_ 010522 


010526 
010532 


010534 
010540 
010544 
010550 
010554 
010556 
010562 
010564 
010570 
010574 


010576 
010604 


010604 
010604 
010610 
0106014 
010620 
010624 
010626 


010632 
010636 


010640 
010640 
010644 
010650 
010654 
010660 
010662 


010666 
010672 


06-DEC-77 


14-NOV-77 14: O04 


012737 


052737 


012700 
104050 


103002 
00&237 


005737 
001024 


012701 
105937 
012704 
005764 
001402 
150137 
006301 
062704 
022704 
001365 


113737 


013746 
012746 
013746 
012746 
104037 
062706 


005737 
001413 


013746 
012746 
013746 
012746 
104037 
062706 


005737 
001412 


177770 
002260 


000004 
002260 


000002 
000040 


000001 
002121 
024752 
000104 


002121 
000122 
026172 


002121 


002212 
014152 
002206 
000003 


000010 
002136 


002214 
014162 
002210 
000003 


6000010 
00227 


002122 
000004 


002122 
000002 


002122 


£02120 


18:09 PAGE 83-19 


INITIALIZATION CODE 


MOV #177770, SYSMSK 
CMP UUT, #4 
BGT 2$ 
BIS #4, SYSMSK 
CMP UUT, #2 
BGT 2$ 
BIS #2, SYSMSK 

2$: READEF #EF. START 
MOV #EF. START, RO 
EMT CSREFG 
BNCOMPLETE RESTART 
BCC RESTART 
INC STFLG 

RESTART: TST CNTFLG 
BNE 2$ 


LET'S CREATE INTERNAL BITMAP 


3S: 


SETVEC 
MOV 
MoV 
MoV 
MoV 
EMT 
ADD 


TST 
BEQ 


SETVEC 
MoV 


4S. TST 


#1-R1 
DRPRS 
#ORBUF, RY 
DCS(RY) 


2$ 
R1,DRPRS 


R1 
#PRPOS+2, R4 
RENDBUF. RY 
1$ 


DRPRS, DRUT 


VECT1, # INTRI. PRIORI 
PRIOR1,.-(SF) 

# INTR1.-(SP) 

#23, - (SP) 

CSSVEC 

#1C, SP 


CNTLR2Z 
4$ 


VECTZ, #INTRZ-PRIORZ 
PRIOR2,.-(SP? 

a INTRZ, -(SP) 
VECT2. - (SP) 

#3, - (SP) 

CSSVEC 

#10, SP 


CNTFLG 
F INOBF 


+ SETUP FOR bang DRIVES 


;MORE THAN FOU 
; YES, 


+MORE THAN TWO 

YES, IT'S OKAY 

SET FOR ONE OR TWO 
START COMMAND 

;NO, CHK RESTART 
+SET START INDICATOR 


; CONTINUING 
[YES GO TO 3 


-BIT MASK 


THEN MASK IS OKAY 
+ SETUP FOR FOUR DRIVES 


>CLEAR OUT DRIVES PRESENT 


START OF DRIVE BUFFERS 


ANY CSR? 
NO, NO DRIVE THEN 


; INDICATE DRIVE IN BITMAP 


:NEXT POSITION 
;NEXT DRIVE BUFFER 
> DONE 

;NO 


SET UP DRIVES UNDER TEST 


> SET CONTROLLER 1°S VECTOR 


RUNNING TWO CONTROLLERS? 


>NO 


> YES SET CONTROLLER 2'S WECTOR 


> CONTINUE? 
>NQ, 


GO PAST PESTAPT OF CLOCK 


SEQ 0047 


a 


roan 


GUTERR 
DIPLEA. 


MACY11 3001046) 


Pil 


010674 
010700 


010702 
010702 
010706 
010710 
010710 
010712 
010716 


010720 
010724 
010726 
010732 
010734 
010740 
010744 
010744 
010746 
010750 
010752 
010752 
010754 
010760 
010762 
010764 
010766 
010772 


010774 


010776 
011002 
011004 
011010 
011014 
011016 
011020 
011024 
011026 


011032 
011032 
011036 
011040 
011040 


011042 
011046 


06-DEC-77 


14-NOV-77 14: 04 


005737 
001462 


012700 
104034 


104045 
010037 
000453 


012703 
005001 
005737 
001402 
012701 
062701 


010100 
104930 
010002 


103411 
005737 
001401 
005301 
005301 
162703 
001364 


000000 


042701 
000301 
010237 
005737 
001404 
060102 
010237 
006201 
010137 


012700 
104034 


103002 
005237 


002250 
000001 
002224 


000050 
002136 


000024 
o00c24 


002136 


000002 


177400 
002252 
002136 
002254 
002256 


‘pac001 


602250 


18:09 PAGE 83-20 
INITIALIZATION CODE 


F INDBF: 


1S: 
23: 


4S: 


POWER: 


TST SYSCLK 

BEQ POWER 

CLKON #1 

MOV #1,R0 

EMT CSKWON 

REQTIM RO 

ENT CSREQTIN 

MOV RO. LSTTIM 

BR POWER 

MOV #40.,R3 
CLR R1 

TST CNTLR2 
BEQ 1% 

MOV #20.,R1 
ADD 20. -R1 

BUFFER R1,R2 

MOV R1,RO 
EMT CSBUFF 
MOV RO,R2 
BCOMPLETE 4§ 
BCS 4§ 

TST CNTLR2 
BEG 3$ 

DEC R1 

DEC R1 

SUB #2,R3 
BNE 2 

HALT 

BIC #177400.R1 
SWAB 

MOV R2, BUF 1 
TST CNTLR2Z 
BEQ 5$ 

ADD R1,R2 
MoV R2,BUF2 
ASR Ri 

MoV Ri, MAXWC 
CLKON @1 

MoV #1,R0 
EMT CSKWON 


BCC 
INC 


BNCOMPLETE 
POWE 


POWER 


SYSCLK 


SEQ 0048 
;DO WE HAVE SYSTEM CLOCK 
:NO 
; TURN CLK ON 
;REQUEST TIME 


;MAKE IT PRESENT TIME 
+GO TO END 


*MAXIMUM SECTOR IS 40 


START WC AT ZERO 
TWO CONTROLLERS???? 
NO, START WC AT 5120 
+20 256 WORD BUFFERS 
*WC TO 5120 PLUS 5120 


GET BUFFER IF AVAILABLE 


;WAS AVAILABLE, THEN BR 
TWO CONTROLLERS??? 
; NO 


[ONE 256 WORD BUFFER LESS 
:ONE MORE LESS 


;1F NOT ZERO GO BACK 


;GET BUFFER FOR FIRST CONTROLLER 
TWO CONTROLLERS?? 


-NO 
>SECOND'S BUFFER 


>CORRECT WORD COUNT 
*>MAX WORD COUNT 


> TUPN CLOCK ON? 
;WAS THERE A CLOCK? 


:YES. SET FLAG FOR ONE! 


[ee 


OUTERR MACY11 30°1046) O6-DEC-77 18:09 PAGE 83-21 


OZRLEA. Pil 14-NOV-77 14: 04 INITIALIZATION CODE 
3626 
3627 
3o28 011046 ENDINIT 
(3) 011046 L10016. 
(3) 011046 104011 EMT CSINIT 
3629 
3630 011050 ENDMOD 
3631 
3632 011050 BGNMOD CLNCODE 
3633 
3634 
3635 011050 BGNCLN 
3oI6 
3637 011050 SETVEC ERRVEC, #TRPHAN, #340 
(7) 011050 012746 000340 MOV #340, -(SP) 
(o' 011054 012746 011626 MOV # TRPHAN, - (SP) 
(6) 611060 013746 002302 MOV ERRVEC. -(SP) 
(4) 011064 012746 000003 "MOV #3,-(SP) 
(3) 011070 104037 : EMT CSSVEC 
(2) 011072 062706 000010 ACD #10, SP 
3638 011076 SETPRI #FRIOO PRIORITY TO ZERO 
(3) 011076 012700 000000 MoV #PRIO0, RO 
“i 011102 104041 EMT CSSPRI 
6 ' 
3e4O 011104 032777 HO0OZ00 171022 1%: BIT #CROY, ACNTLRI /WAIT FOR CONTROLLER TO FINISH 
3641 011112 001774 BEQ 1 ; 
3642 011114 O42777 OOOO 171012 BIC # INTEN, OCNTLP! /CLEAR INTERRUPT IF PENDING 
3643 011122 CLRVEC VECTI /RELEASE VECTOR OF FIRST CONTROLLER 
(3) 011122 013700 002206 MoV VECT1,P0 
aon 011126 104936 EMT CSCVEC 
644 
3645 011130 005737 002136 TST CNTLR2 > TWO CONTROLLERS 
_ 011134 001412 BEQ 3$ -NO 
64 
3648 011136 032777 000200 170772 2s: BIT #CRDY. OCNTLPC -WAIT FOR OTHER CONTROLLER TO FINISH 
3649 011144 001774 BEG 2$ 
3650 011146 042777 000100 170762 Bic SINTEN. OCNTLPC CLEAR OUT INTERRUPT ENABLE 
7651 011154 CLRVEC WECT2 »YES. WELL PELEASE IT'S VECTOR 
(3) 011154 013700 002210 MoV VECT2, RO 
(3! O11160 104036 ENT CSCVEC 
3052 
3653 O11:62 005037 002312 3: CLR !'NCALL 
3654 O11166 005037 002310 CLR OPCALL 
3655 011172 CLEVEC ERRVEC 
(3) 011172 013700 002302 Mov ERPVEC. RO 
(3) 011176 104036 ENT CSCVEC 
3656 
3657 011200 ENDCLN 
(3) 011200 L10017?: 
(3) 011200 104012 ENT CSCLEAN 
3658 
3059 011202 ENDNOD 
3600 
3661 
3oo2 011202 BGNMNOD § ADDCODE 
3662 


-_ 


OUTERR 
DZRLEA 


MACY11 30(1046) 


Pl 
011202 


011202 
011206 
011212 
011214 
011216 
011220 
011224 
011226 
011230 
011232 
011236 
011236 
011240 
011242 
011244 
011250 
011254 
011256 
011260 
011262 
011264 


011264 
011264 
011264 


011266 
011266 
011266 


011266 
011272 
011274 
011300 
011302 
011304 
011306 
011312 


011314 
011322 
011326 


011326 
011326 
011326 


011330 


14-NOV-77 14: 04 


012704 
012701 
010002 
005700 
001405 
062704 
006301 
005300 
000771 
150137 


010200 
104042 
010001 
011164 
012700 
006200 
005024 
205300 
001375 


104054 


005737 
001015 


000772 


012737 
004537 


104055 


INITIALIZATION CODE 


MOV #ORBUF, RY 
MOV #1,R1 
RO. RZ 


MoV 

TST RO 

BEQ 23 

ADD #PRPOS+2,R4 
ASL R1 

DEC RO 

BR $ 

BISB R1,DRUT 
GPHARD R2,R1 

MOV R2,.R 

ENT CSGPHRO 
MOV RO, R1 

MOV (R1),DCS(R4) 
MoV #SERNM1,RO 
ASR RO 

CLR (R4Y)+ 

DEC RO 

BNE 4§ 

ENT C$AU 
DROPCODE 

TST INCALL 

BNE 3$ 

May aORBUF, RY 
TST RO 

BEQ 1$ 

DEC RO 

ADD #PRPOS+2. PY 
BR 2s 

MoV #REQ. WHY 
JSP RS. OOROR WY 
ENT c$0u 


06-DEC-77 18:09 PAGE 83-22 
BGNAU 
024752 
000001 
1: 
000122 
002120 zs: 
000104 
000106 
us: 
5%: 
ENDAU 
L10020: 
ENDMOD 
BGNMNCD 
BGNOU 
002312 
024752 
2$ 
000122 
007277 OOZ11e 18 
020140 
3$ 
ENODOU 
L10021: 
ENOMOD 
SBTTL 


GLOBAL SUBROUTINES 


SEQ 0050 


;START OF DRIVE BUFFERS 
;MASK TO FIND DRIVE 

> SAVE WHICH TO FIND 

+ THIS ONE 

; YES 


; NEXT 
;NEXT MASK 


; INSERT !N DRIVE UNDER TEST 


; SETUP TO CLEAR STATS 


i ae 


OUTERR 
DZPLEA 


3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 


MACY11 
Pil 


011330 


011330 
011334 
011340 
011346 
011350 
011354 
011360 
011362 
011364 


011366 
011372 
011376 
011404 
011406 
011412 
011416 
011420 
011422 


011424 
011432 
011440 
011446 
011452 
011456 


011460 
011464 
011464 
011470 
011474 
011500 
011504 
011506 
011512 
011516 
011522 
011524 
011530 
011534 
011540 
011546 


011550 
011550 
011552 
011556 
011562 
011566 
011572 


3011046) 
14-NOV-77 


012701 
012702 
026462 
001002 
010462 
062702 
005301 
001366 
000205 


012701 
012702 
026462 
001002 
005062 
062702 
005301 
001366 
00295 


013764 
013764 
013764 
010264 
005737 
001460 


005037 


012746 
012746 
013746 
012746 
104037 
062706 
005774 
005737 
001012 
016400 
052700 
010074 
032774 
001021 


005046 
156416 
016446 
012746 
012746 
010600 


06-DEC-77 
14: 04 


000010 
024752 
000104 


000076 
000122 


000010 
024752 
000104 


000076 
000122 


002152 
002144 
002164 
000112 
007556 


002264 


000340 
011626 
002302 
000003 


000010 
000104 
002264 


000106 


000200 . 


000104 
co0001 


000107 
000104 
006634 
000003 


900104 


000104 


000106 
900104 
000110 


900104 


18:09 PAGE 83-23 


GLOBAL SUBROUTINES 
BGNMOD GLBSUB 


SETWCK: MOV #8.,R1 
MOV #ORBUF. RZ 
1$: CMP DCS(R4), OCS(R2) 
BNE 2$ 
MOV R4, DOWCK (RZ) 
23: ADD #PRPOS+2,R2 
DEC R1 
BNE 1$ 
RTS RS 
CLRWCK: MOV #8.,R1 
MOV #ORBUF,R2 
1$: CMP DCS(R4), DCS(R2) 
BNE 2$ 
CLR DOWCK(R2) 
2s ADD #PRPOS+2.R2 
DEC Ri 
BNE 1$ 
RTS RS 
*;ROUTINE TO FILL BUFFERS WITH INFO 
FILINF: MOV BORSEL, ORSEL‘R4) ;SET DRIVE SELECT BITS 
MoV BCSR. DCS(R4) SET CSR . 
MoV TEMP 1. BBACRY) »SET R/W BUFFER 
MOV R2,BSECPTCRY) SETUP BAD SECTOR POINTER 
TST T. AUT DO WE AUTOS! ZE? 
BEQ 1$ >NO, SKIP 
CLR TRPFLG CLEAR TRAP FLAG 
SETVEC ERRVEC, &TRPHAN. #340 SETUP TO CATCH TRAP 
MoV #340, -(SP) 
MoV #TRPHAN. -(SP) 
MoV ERRVEC.-(SP) 
MoV #3,-(SP) 
ENT CSSVEC 
ADD #10. SP 
TST @DCS(R4) 
TST TRPFLG >DID TRAP OCCUR 
BNE 3$ > YES IGNORE ORIVE 
Mov DRSEL (RY), RO / YES, FIND OUT IF DRIVE 
BIS #200, R0 ‘HAS DRIVE READY POSTED 
Mov RO, ADCSERY) 
BIT #1, dDCS(R4) 71S ORIWE READY HIGH? 
BNE 2$ * YES. CHECK NEYT 
2$ PRINTF #FRMT16,DCS(R4), <B. DRSEL+1(R4)> 
CLR - (SP) 
BISB DRSEL+1(R4), (SP) 
MOV DCS(R4Y),. -(SP) 
MOV #FRMT16,-(SP) 
MOV #3,.-(SP) 
MoV SP,RO 


SEQ 0051 





[ie 


OUTERR MACY11 30(10%6) 6-DEC-77 18:09 PAGE 83-24 
DZRLEA. P11 14-NOV-77 14: 04 GLOBAL SUBROUTINES SEQ 0052 
(4) 011574 104017 ENT CSPNTF 
395) 011576 062706 000010 ADD #10, SP 
3758 011602 005337 002260 x DEC UUT ONE LESS DRIVE NOW 
3759 011606 005064 000104 CLR DCS(R4) + TAKE DRIVE OUT OF BUFFER 
3760 011612 23: CLRVEC ERRVEC ;RELEASE THE VECTOR 
(3) 011612 013700 002302 MOV RRVEC, RO 
(3) 011616 104036 ENT VEC 
3761 011620 062704 000122 1S: ADD #PRPOS+Z, RY ; UPDATE POINTER 
3762 011624 000205 RTS RS 
3763 011626 005237 011626 TRPHAN: INC TRPHAN 
he 011632 000002 RTI 
ike. ;ROUTINE TO PRINT STATISTICAL REPORT OF DRIVE(S) 
6? 
thy 011634 REPORT 
3770 011634 ; PRINTS #FMT1, #TIME, HOUR, MINUTE, SECOND, *1RLCS, OCS(R4), SORNM, <B, DRSEL+1(R4)> 
(15) 011634 005046 CLR - (SP) 
(15) 011636 156416 000107 BISB DRSEL+1(R4), (SP) 
(14) 011642 ©C12746 003620 MOV RORNIM, - (SP) 
(13) 011646 016446 000104 MoV DCS(R4), - (SP) 
(12) 011652 012746 002323 MOV #MRLCS, - (SP) 
(11) 011656 013746 002226 “MOV SECOND, - (SP) 
(10) 011662 013746 002230 MoV MINUTE, - (SP) 
(9) 011666 013746 002232 MOV HOUR, - (SP) 
(8) 011672 012746 002314 MoV #TIME, -(SP) 
(7) 011676 012746 005626 MOV #FMT1,-(SP) 
(6) 011702 012746 000011 MoV #11,-CSP) 
(3) 011706 010600 MOV SP,.RO 
(4) 011710 104016 EMT CSPNTS 
“ee 011712 062706 000024 ADD #24, SP 
1 
3772 011716 005764 000070 TST DPHOUR (RY) >D0 WE HAVE ANY DROPPED TIME 
3773 011722 001417 ‘ BEQ 1$ 7NO. THEN PRINT RUNNING 
3774 
3775 011724 PRINTS #FMTS1B. <B,DPHOUR(R4)>, <B. DPMIN(RY)> 
(9) 011724 005046 CLR - (SP) 
(9) 011726 156416 000071 BISB DPMINCR4Y). CSP) 
($) 011732 005046 CLR - (SP) 
‘$) 011734 156416 000070 BISB DPHOUR (RY), (SP) 
(7) 011740 012746 006777 MoV #FMTSIB,-(SP? 
(6) 011744 012746 000003 MOV #3,-(SP) 
(3) 011750 010600 MoV SP. RO 
(4) 011752 104016 EMT CSPNTS 
(4) 011754 062706 000010 ADD #10. SP 
i 011760 000410 BR 23 
3778 011762 1$: PRINTS #FNTS1IA 
(7) 011762 012746 006761 MoV #FMTS1IA, -(SP) 
(6) 011766 012746 000001 MoV #1,-(SP) 
(3) 011772 010600 MoV SP. RO 
(4) 011774 104016 ENT CSPNTS 
(4) 011776 062706 900004 ADD #4. SP 
3779 012002 2s. 


012002 PRINTS #FMTS2. @CART, SERNM2(P4). SERNMIIP4) 


i i i is SESEEEE——— = 


‘eh wUsauros 


DZRLEA. P11. 


(10) 
(9) 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 
3781 
(12) 
Ci) 
:10) 
(93 
cS} 
t7) 
(6! 
(3) 
(4) 
(4) 
3782 
(10) 
(9) 
(8) 


012002 
012006 
012012 
012016 
012022 
012026 
012030 
912032 
012036 
012036 
012042 
012046 
012052 
012056 
012062 
012066 
012072 
012074 
012076 
012152 
012102 
012106 
012112 
012116 
012122 
012126 
012130 
012132 
012136 
012136 
012142 
012146 
012152 
012156 
012162 
012166 
012170 
012172 
012176 
012176 
012202 
012206 
012212 
012216 
012220 
012222 
012226 
012226 
012232 
012236 
012242 
012246 
012252 
012256 
012260 
012262 


vorvutrrr¢ 


14-NOV-77 14: 04 


016446 


062706 


016446 
016446 
016446 
O1E446 
016446 
012746 
012746 
010600 
104016 
062706 


C16446 
016446 
016446 
012746 
012746 
010600 
104016 
062706 


016446 
016446 
016446 
916446 
012746 
012746 
0:0600 
104016 
062706 


016446 
016446 
012746 
012746 
010600 
104016 
062706 


016446 
016446 
016446 
016446 
012746 
012746 
016000 
104016 
062706 


000100 
000102 
002430 
007030 
000004 


000012 


000002 
000004 
000060 
000054 
000000 
007043 
000006 


000016 


000006 
000010 
000062 
007130 
000004 


OOOiz 


000074 
000072 
000016 
000020 
007174 
000005 


000014 


000014 
000012 
007275 
000003 


000010 


000032 
000034 
000024 
000022 
007330 
000005 


NNN 


16: UY FALE 85-25 
GLOBAL SUBROUTINES 


SERNM1(R4Y), - CSP) 
SERNMZ(R4), -(SP> 
#CART, -(SP) 
#FMTSZ2, -(SP) 

#4, -(SP) 


» SP 

#FMTS2ZA, SKCNTCRY), SKCNTICRY), RXFRICRY),RXFRZ(RY), RXFRICRY) 
RXFRICR4), - (SP) 

RXFRZ(R4), - CSP) 

RXFR3CRY),- CSP) 

SKCNT1(R4), - (SP) 

SKCNT(R4), - (SP) 

®FMTSZA, -(SP) 


#16, SP 

RFMTS2B, WXFR3(RY),WXFRZ(R4), WXFRICRY) 
WXFRICRY), - CSP) 
WXFRZ(R4), - (SP) 

WXFR3CR4Y), -CSP) 

RFMTS2B, -(SP) 


#FMTS3, DERCNT(R4Y), SKECNTCRY), TREPR(R4Y), DATCER(RY) 
DATCER(RY), - (SP) 
TRERR(RY), - (SP) 

SKECNT(R4), -CSP) 

DERCNT(RY). -CSP) 

#FMTS3,-(SP) 

#5,-(SP) 

SP,RO 

CSPNTS 

#14, SP 

#FMTS3A. ERRCNT(RY). SFTCNT PU? 
SFTCNT(R4Y), -(SP) 

ERRCNTC(RY), -CSP) 

#FMTS3A, -(SP? 


#10, SP 

er MTS4¥, OCRCER(RY).HCPCEP (PY). N¥MCNT:P4). HNFERP SPY) 
HNFERR(R4Y), -(SP) 

NXMCNT(R4),-(SP) 

HCRCER(R4Y), - (SP) 

DCRCER(RY), -( SP) 

#FMTSY, - (SP) 





—— aa ane 


SEQ 0053 


oo 


OUTERR 


OZRLEA. 


3786 
(9) 
(8) 
(7) 
(6) 
(3) 


Pil 


012266 
012266 

12272 

12276 
012302 
012306 
012310 
012312 
012316 


01232 


Q12scC 


012526 


MACY11 30(1046) 
77 


14-NOV- 


016446 
016446 
012746 
012746 
010600 
104016 
062706 
000207 


06-DEC-77 
14: 04 


000030 
000026 
007414 
000003 


000010 


18:09 PAGE 83-26 


GLOBAL SUBROUTINES 


PRINTS #FMTSS,.OLTCNT(R4), OPICNT(RY) 
MOV OP ICNT(R4), -(SP> 

MOV DLTCNT(R4Y), -(SP) 

MoV #FMTSS, -(SP) 


MOV SP,RO 
ENT CSPNTS 
ADD #10. SP 
RTS PC 
ENDMOD 

.SBTTL PROGRAM MAIN LOOP 


BGNTST 

;MAIN PROGRAM LOOP 

PROGRAM WILL RANDOMLY PICK ONE OF THE DRIVES TO 

>;PERFORM AN OPERATION. WE WILL ALWAYS PICK ONE OF FOUR 

>OR EIGHT DRIVES (ONE OR TWO CONTROLLERS) “ORUT" WILL BE 

; CHECKED TO SEE IF DRIVE 1S ON SYSTEM. ONCE DRIVE IS PICKED 

> THEN A FUNCTION WILL BE SELECTED RANDOMLY FOR THAT 

/ORIVE. FUNCTIONS OF CONTROLLER RESET, GET STATUS. SEEK. READ, WRITE 
‘WILL BE SELECTED, EACH FUNCTION HILL HAVE IT'S OWN ROUTINE 

: TQ GET PARAMETERS FOR THE DRIVE 


mTESy: - TST PWPRFLG - 


SEQ C054 


OUTERPR MACY11 3001046) O6-DEC-77 18:09 PAGE 84 
DIPLER Pil 14-NOV-77 14: 04 PROGRAM MAIN LOOP SEQ 0055 


012324 001054 BNE 128 > 1F POWER FRIL SKIF 





GUTERR 


DZPLEA. 


MACY11 30¢1046) 


Pil 


012326 


012342 


012344 
012352 
012360 
012364 
012366 


14-NOV-77 


012704 
012701 
130137 
001441 


012774 
056474 
012700 
005300 
0012376 


i 


024752 
000001 
002120 


000200 
000106 
000012 


000104 
000104 


O6-DEC-77 18:09 PAGE 85 
4: O4 P 


ROGRAM MAIN LOOP 
MOV #ORBUF, RY 


MOV #1,R1 
16S: BITB R1,DRUT 
BEQ 15% 


MOV #200, ADCS(R4) 
BIS DRSEL(R4), ADCS(RY) 
MOV #10. ,R0 

135: DEC RO 


;GET ORIVE BUFFERS 
; MASK 

:DRIVE UNDER TEST 
; NO 


’ 


; CHECK IF ORIVE THERE 
> STALL 


——_—— 


SEQ 0056 | 


oo 


OUTERR 


DZRLEA. 


MACY11 30(1046) 


Pil 


012370 
012376 


012400 
012406 
012412 


012414 
012420 
012424 
012430 
012434 
012440 


012442 


012446 
012452 
012454 
012456 
012456 
012462 
012466 
012472 
012474 
012476 
012502 
012502 
012506 
012510 
012514 
012520 
012524 
012530 
012532 
012534 
0125236 
012540 
012542 
012546 


012550 
012550 
012552 
012554 


012556 


012562 
012566 


14-NOV-77 14: O4 


032774 
001006 


012737 
004537 
000415 


004537 
005064 
005064 
005064 
005737 
001402 


004537 


062704 
106301 
103330 


012746 
012746 
012746 
010600 
104017 
062706 


012700 
104041 
004537 
013702 
043702 
012701 
005702 
001403 
006301 
005302 
000773 
105737 
001005 


104421 
000252 
003606 


000137 


130137 
00179 


#ORDY, ADCS(RY) 
14$ 


#ONRDY, WHY 
RS, DRORV 
15$ 


RS, ROBDSC 
PRFLGS(R4) 
DOWCK (RY) 
RSEEK(RY) 
STFLG 

15$ 


RS, WRPACK 


#PRPOS+2.R4 
R1 


16% 

SFEMT1I4. #MSTART 
#MSTART, -(SP) 
#FMTI4, -CSP) 
#2.-(SP) 

SP, PO 

CSPNTF 

#6, SP 

#0 

#0,R0 

CSSPR I 

R5. RAND 
LONUM, R2 
SYSMSK. RZ 


170. - NOOR IW 
TSERCODE 
170 

NODR iy 


ENDOF PROGRAM 
R1,0RUT 


O6-DEC-77 18:09 PAGE 86 
PROGRAM MAIN LOOP 
000001 000104 BIT 
BNE 
002460 002116 MOV 
020144 JSR 
BR 
017432 14S: JSR 
000056 CLR 
000076 CLR 
000114 CLR 
002266 TST 
BEQ 
021236 JSR 
000122 18S: ADD 
ASLB 
BCC 
12S: PRINTF 
004151 MOV 
006473 MOV 
000002 MoV 
MOV 
EMT 
000006 ADO 
SETPRi 
000000 MOV 
ENT 
021140 MAIN: JSR 
002126 MoV 
002122 PEROTH: BIC 
000001 MoV 
1$: TST 
BEQ 
ASL 
DEC 
BR 
002120 2$ TSTB 
BNE 
ERRSF 
TRAP 
WORD 
WORD 
024744 JMP 
002120 =$ BiTB 
BEQ 


MAIN 


GO GET BAD SECTORS 


;NEXT DRIVE 
> DONE? 


ONE 7 
>NO GO FOR NEXT ONE 


;PRIORITY TO ZERO 


>GET A DRIVE?(LUN) 

;GET THE SELECTED DRIVE (LUN) 
>MASK TO DRIVES ON SYSTEM 
>LET'S SEE IF DRIVE 1S THERE 
>HAVE WE GOT PROPER MASK YET 
>YES, GO TO 2% 

>NQ, SHIFT FOR NEXT DRIVE 
>DECREMENT DRIVE NUMBER 

GO CHECK NEW DRIVE NUMBEP 
>ANY ORIVES ON LINE 

> YES, CHECK 


7NO OPIVES 


>1S THIS OR IVE PRESENT? 
>NO. GO BACK TRY AGRIN 


-WE NOW HAVE A DRIVE. CHECK TO SEE IF IT'S CONTPOLLEP 
-1S FREE BEFORE WE GO ANY FURTHEF 


SEQ 0057 





GCUTERR 


DZRLEA. 


MACY11 3001046) 


Pil 


012570 
012574 
012602 
012604 


012610 
012610 


012612 
012616 


012720 


012724 
012730 
012732 
012736 
012744 
012750 
012754 
012756 


012762 


013012 


06-DEC-77 


14-NOV-77 14: 04 


004537 
023737 
002403 
005037 


104024 


012704 
013702 
043702 
00£702 
001404 
062704 
005302 
000772 
032774 


005764 
001407 
016404 
012764 
000137 
005764 
001492 
000137 


005764 
001003 
000412 
000137 
032764 
001002 
000137 
000137 


022252 
002222 


002222 


024752 
002126 
902122 


000122 


000200 


900100 


002136 


NO212e 


NO0104 


012520 


012520 


000076 
000076 


000036 
014002 
000114 
013732 
000001 


013324 
G13650 


007502 


000104 
000104 


HOLi 54 


000044 


18:09 PAGE f6-1 


PROGRAM MAIN LOOP 


JSR RS, GETSYS 


CMP INTERVAL, TYINT 
BLT 6$ 
CLR INTERVAL 
DORPT 
ENT CSORPT 
6S: MOV #DRBUF. RY 


MoV LONUM, R2 
; Bic SYSMSK,.RZ . 
38: TST R2 


4$ 
ADD #PRPOS+2. RY 
R2 
3$ 
4S: BiT #BiT7, dDCS(R4) 


BEQ OTHCTL 
BIT #B1T6, ADCSIRY) 
T 


BEG GX 
OTHCTL: TST CNTLR2 

BEQ MAIN 

MoV LONUM, RZ 

CMP DCSSRY). CNTLFI 

BEQ 1$ 

SEC 

ROR RZ 

JMP PEROTH 
1$ SEC 

ROL R2 

JMP PEPROTH 


.WE CAN NOW PROCEED IN GETTING A 
:FOR THE DRIVE RANDOMLY P4 HAS 


TAG TST DOWCK CRY) 
BEQ 80s 
MOV DOWCK CRY). PY 
MoV @WRCHK. FUNC ORS) 
JMP ISSUE 
Sos TST RETRYCRY) 
BEG 78$ 
JMP ISSUE 
rss TST RSEEK CRY) 
BNE 779 
BR GE TF NC 
JMP PODF NC 
77S BIT aSKDON. PRPFLGSCLRY 
BNE ~— 79% 
JMP SKF NC 
79% JMP ROHF NC 


;GET PRESENT TIME OF —— 
TIME TO PRINT REPORT 

+NO, PERFORM FUNCTICN 

; YES, START INTERVAL OVER 


;PRINT STATISTICAL REPORT 


+GET START OF DRIVE BUFFERS 

;GET RANDOM DRIVE BACK (LUN) 
;MASK TO SYSTEM SYS 

DO WE HAVE BUFFER FOR THAT DRIVE 
;YES, GO CHECK IT'S CONTROLLER 
+NO, UPDATE FOR NEXT BUFFER 

>DOWN COUNT DRIVE NUMBER (LUN) 
GO BACK AND CHECK FOR FOUND 

> CONTROLLER ASSOCIATED WITH DRIVE 
;BUSY, CHECK OTHER CONTROLLER 

+ INTERRUPT BEEN SERVICED? 

> YES,GO DO OPERATION 

; TWO ONTROLLERS? 

*NO, FORGET IT 

>GET RANDOM NUMBER 

>WHICH CNTLR WAS BUSY 

:FIRST, SKIP 


FUNCTION AND PELATED DATA 
DRIVE BUFFER POINTER 


;WRITE CHECK NEEDED 


;NO 

;GET ONE THAT NEEDS TO BE WRCHK'D 
>WRITE CHECK 

> ISSUE IT 

>;DOES DRIVE HAVE PETRY IN 
>PROGRESS, NO CONTINUE 

>GO RETRY COMMAND 


RECOVERY FROM SEEK ERFOR 
>N 


>NO 

>NO. CONTINUE 

>GO READ 

) ; SEEK BEEN WERIF IED 
0 


‘N 
:GO. TRY TO PECOUEP 
60 VERIFY SEEr 


CHECR LIMITS OF ERPORS “CPEPATIONS 


SEQ 0058 


QUTERP MACY11 3001046) O6-DEC-77 18:09 PAGE 86-2 
DZPLER P11 14-NOV-77 14: 04 PROGRAM MAIN LOOP SEQ 0059 . 
3920 013016 032764 000001 000056 GETFNC: BIT #SKDON, PRFLGS(R4) ;SEEK NEED TO BE VERIFIED? 
3921 013024 001402 ! BEQ 1$ ;NO, CONTINUE 
2922 013026 000137 013650 JMP RDHF NC :GO VERIFY SEEK 
2923 013032 005737 007532 1: TST T uRP ;OROP ON ERROR LIMITS REACHED? 
3924 013036 O01456 BEQ 85 ;NO 
2925 013040 026437 000012 007472 CMP ERRCNT(R4Y), ERLMT ;HARD REACHED? 
3926 013046 103404 BLO % 
2927? 013050 012737 O03111 002116 MOV #ERLMTM, WHY 
7928 013056 o000442 BR 11$ 
3929 013060 026437 000014 007536 95: CMP SFTCNT(R4), SFLMT ; SOFT REACHED? 
3930 013066 103404 BLO 10$ 
3921 013070 012737 003154 002116 MOV #SFEMSG, WHY 
7922 013076 000432 BP 119 
2933 0123100 026437 oO00074 nO75e4 10%: CMP DATCER(R4Y), T. OCD 
7934 012106 103404 BLO 1108 
7935 013110 012737 003176 002116 MoV #OCDMSG, WHY 
7936 13116 000422 BR 11$ 
2337? O12120 016401 000016 1108: Mov SKECNT(R4), RI 
3938 012124 066401 000C72 ADD TRERR(RY), PI 
3939 013130 020137 9007474 CMP Ri, SELMT | 
3940 013134 103404 BLO 78 | 
27941 012136 012737 002133 02116 MOV #SERLMT. WHY 
3942 913144 O00407 BR 115 
3943 13146 026437 O00020 On754u2 7s CMP DERCNT(RY), ORLMT ;ORIVE ERROR REACHED? 
3944 013154 103407 BLO gs 
39uS 0123156 012727 OO3221 AOl116 Mo #DERMSG. WHY 
3946 012164 O04537 020144 115 Isp PS. DRORY /DROP THIS DRIVE!!! 
3947 013170 000137 912510 JMP MAIN “GO GET ANOTHER | 
3948 
3949 
3950 
3951 
3952 013174 005737 007540 $$. TST T STA “DO WE WISH TO CROP ON GPR LIMITS 
3953 012200 001422 ~~ BEQ 986 SNC 
3954 ; 
3955 013202 026437 o00000 107500 CMP SKCNTCRY), SKLMT ; PAST THE SEEK LIMIT?? 
3956 013210 103416 BLO 985 “* “NO, THEN GO TEST 
7957 013212 016400 000060 mov RXFRICRY).RO :GET READ COUNT 
3795S 013216 066400 000062 ADO WXFR3(R4).RO ;ADD IN WRITE COUNT 
7959 013222 020037 007476 CMP RO. DALMT >LIMIT REACHED?? 
3960 013226 103407 BLO 985 /NO. THEN GO TEST 
2961 013230 012737 OO3400 O02!16 Mow #SCPLMT. WHY 
7962 0123236 004537 620144 JSP RS. RORY ;DROP THE DRIVE 
3963 013242 000137 012510 yme MAIN ;GO FOR ANCTHER DP IWE 
3964 
3965 013246 O04S37 021140 386 ISR PS. RAND >GET FUNCTION, LEGAL FUNCTIONS 
3966 -ARE: 1 (WRITE CHECK) 
3967 >: 2 (GET STATUS) 
3968 3 (SEEK) 
3969 4 (RD HEADER: 
3970 S (WRITE) 
3971 : 6 (READ) 
3972 [0&8 7 ARE NOT LEGIT | 
3973 013252 013702 002126 mow LONUM. R2 -GET IT 
7974 013256 Ou2702 17777! BIC #177770 Po “MASK TO O-7 
3975 013262 001001 BNE 6$ >1F O. MAKE 1 | 
| 
j 





































OUTERR MACY11 30(1046) a 77 +«+18:09 PAGE 86-3 


DZRLEA. P11 14-NOV-77 PROGRAM MAIN LOOP SEQ 0060 | 
3976 013264 005202 INC R2 
3977 013266 022702 000007 6S: CMP #7,R2 ;1S 17 7? 

3978 013272 001001 BNE 55 ; IF 7, MAKE 6 

3979 013274 005302 DEC R2 
3980 013276 006302 5S: ASL R2 ;SHIFT LEFT (X2) 

3981 013300 000172 017414 JMP aL IST(R2) ;GO TO FUNCTION ROUTINE 


3982 

3983 
tea .SBTTL ROUTINE TO SETUP AND ISSUE GET STATUS 
cont ,;WE GET HERE BY FALLING THRU “LIST” W!TH A RANDOM FUNCTION OF 2 

3988 0123304 012764 000004 O00044 GSTFNC: MOV #GSTAT.FUNC(RY) ; LOAD GET STATUS 

3989 013312 012764 000003 000040 MOV #GSBIT,BOACR4Y) {SET GSBIT IN COMMAND WORD | 
3330 013220 000137 014002 JMP ISSUE ;GO ISSUE FUNCTION 
3991 

seat .SBTTL ROUTINE TO SETUP AND ISSUE SEEK FUNCTION 

3994 ;WE GET HERE BY FALLING THRU “LIST” WITH.A RANDOM FUNCTION OF 3. 

3995 ;WE WILL CALL “RAND” FOR A NEW DISK ADDRESS TO SEEK 

3996 _ 370. ANY TRACK BUT LAST IS LEGAL. WE WILL ALSO INCREMENT 

oo 7 1T'S SEEK COUNT 

3999 013324 005764 O001i4 SKFNC: TST RSEEK(R4Y). > TRYING TO RECOVER 

4000 013330 001411! BEQ 989 >NOQ, CONTINUE 

4001 013332 016401 000050 MoV LSTHDOR(R4Y),R1 ;YES SET UP FOR RESEEK 

4002 013336 016402 000120 : MoV PRPOS(R4),R2 >TO CYLINDER 

4003 013342 042701 000100 BIC #100. R1 >HEAD SET IN LATEP = 
4004 013346 042702 000100 BIC #100,R2 ; 

4005 013352 000507 BR 4% *SKIP RANDOM PRET 

4006 013354 004537 021140 98$- JSR R5.RAND ;GET A RANDOM NUMBER 

4007 013360 013702 002126 now LONUM, R2 ; . 

4008 013364 043702 OC2132 Bic SECMSK.R2 “LEAVE CYL AND HEAL 

4009 012370 020264 00012 CMP RZ. PRPOS(RY | >UN THAT TRACK ALREADY 


4010 013374 001002 BNE 90% >NO. CONTINUE 





OUTERR 


DZRLEA. 


4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 


MACY11 30(1046) 


Pil 


013376 
013402 
013404 
013406 
013412 
013420 
013422 
013426 
013430 
013434 
013440 
013442 
013444 
013450 
013452 
013454 
013460 
013462 
013466 
013470 
013472 
013476 
013500 
013502 
013506 
013510 
013514 


013520 
013526 
013532 
013536 
013544 
012546 
013552 
013554 
013562 
013564 
013572 


013572 
013574 
013576 
013600 
013602 
013606 
013612 
013620 
013622 
013626 
013632 
013636 
0136044 


06-DEC-77 


14-NOV-77 14: 04 


000137 


023702 
101410 
005203 
C20327 
001726 
006302 
042702 
000762 
016401 
043701 


0160464 


5276 
wet 


160102 
100002 
005402 
000402 
052702 
052702 
032764 
001402 
052702 
010264 
016264 
012764 
000137 
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013016 
177677 
007520 
007520 
000100 
007520 
000012 


000200 
007522 


000012 


100000 


000120 
002130 


000120 
000120 
000120 
007514 


007514 
000100 
000100 


000004 
000001 
000100 


000020 
000040 
000066 
00000¢e 
014002 


007522 


H00050 


N07516 


000120 
060120 


000120 


90S: 


955: 
94S: 


975: 
96S: 


J 5 


+5 Weiees + YES. DON'T RESEEK 

R2,R0 + COPY 

#177677.R0 +LEAVE ONLY HEAD 

T MXC. T. MNC +MIN AND MAX CYLINDERS THE SAME 


958 
T.MXC,R2 © 
928 


+NO. BRANCH AND STAY IN LIMITS 
;MAKE CYLINDER MAX/MIN 
GC CLCULATE DIFF AND SEEK 


#HEAD, RZ STRIP OUT H.S. BIT 

T. MXC, RZ + 1S ADDRESS LESS/EQUAL THAN MAX 
= + YES. CHECK LOW END 

R3,#10 

988 

R2 ;HALF 1T AND CHECK AGAIN 

#BIT?.R2 ; JUST TO MAKE NON ZERO 

95% GO BACK AND CHECK AGAIN 
T.MNC,P2 > 1S MIN GREATERZEQUAL THAN ADDRESS 
92$ 7 YES. CALCULATE DIFF AND SEEK 

R3 

R3,#10 

98$ 

RZ NO, DOUBLE IT 

#BIT1iS,R2 *BIT 15 CAN'T SET 

919 >GO CHECK MAX/MIN AGAIN 


1 
PRPOS(R4Y),R1 


GET PRESENT DISK POSITION 


CYLMSK. R1 >CLEAN OUT ITS SECTOR BITS 
PRPOS(R4Y),. LSTHOR(RY ) SAVE LAST 

R2,PRPOS(RY) ;NEW HEADER AFTER SEEK 

RO, PRPOS(R4Y) >SET IN RANDOM HEAD GOTTEN - 

T. M¥H. T. MNH >MIN AND MAX HEAD SELECT THE SAME 
96$ NO, THEN WE CAN USE BOTH SURFACES 
T. MXH *WHICH IS OUR SURFACE FOR USE 


97% 
#HEAD, PRPOS(R4) 
6 
#HEAD, PRPOS(RY) 


> TOP SURFACE BRANCH 
*LOWER SURFACE ONLY 


> TOP SURFACE ONLY 


: CALCULATE THE DIFFERENCE WORD AND STORE IT IN BDA 


45, 


Ri. Ro ; SUBTRACT PRESENT FROM NEXT 
1$ > 1F POSITIVE RESULT GO TO 1$ 
R2 ;NEG RESULT. NEGATE IT 

23 GO SET DIRECTION OUT 
a *DIRECTION OUT, MARKEP 

#Mk, R MARKER BIT 


#SKHS, RZ 


RZ, BDACR4Y) 
R2,DIFWOCRY) 
#SEEK. FUNC CRY) 


ISSUE 


#HEAD, PRPOS(RY) ; WHICH SURFACE SELECTED? 
3$ 


; TOP, THEN 3% 

BOTTOM SET HEAD BIT 

>MOVE DIFFERENCE WORD Tc DA 
>LOAD DIFFERENCE WORD 

>LOAD SEER 


SEQ 0061 | 


7 


oo 


QUTERR 
DZPLEA 


4068 
4069 
4070 
4O71 
4072 
4073 
4Q74 
4075 
4076 
4Q?? 
4073 
4073 
4080 
4081 
4OS2 
4¥Oss 
4034 
4085 
4086 
4087 
408s 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 


4101_ 


4102 
4103 
4104 
4105 
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013650 
013656 


013062 
013670 
013672 
013676 
013702 
013704 
O13710 


013714 
013720 
013726 


013732 
013740 
013742 
013746 
013752 
013756 
013762 
013764 
013766 
013770 
013776 


Ot -DEC-77 


14-NOV-77 14: 04 


012764 
000137 


022764 
001002 
000137 
005737 
001402 
000137 
004537 


004537 
012764 
006137 


022764 
001002 
000137 
004537 
016402 
017491 
005021 
005202 
001375 
012764 
000137 


000010 
014002 


077700 


013324 
007544 


013732 


022472 


017154 
000012 
014002 


077700 


013324 
022472 
000042 
000110 


coco14 
014002 


QO00044 


000120 


HOOO44 


060120 


000044 


K § 
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ROUTINE TO SETUP AND ISSUE SEEK FUNCTION SEQ 0062 


.SBTTL ROUTINE TO LOAD READ HEADER AND ISSUE IT. 
7 WE GET HERE BY FALLING THRU “LIST” WITH A RANDOM FUNCTION OF 4. 


id « 


RDHFNC: MOV RRDHOR,FUNC(R4Y) ; LOAD READ HEADER 
JMP ISSUE 


.SBTTL ROUTINE TO LOAD WRITE DATA COMMAND 


WRTFNC: CMP #77700. PRPOS(R4) ;ON LAST TRACK? 

BNE 983 +NO, CONTINUE 

JMP SKF NC +YES, WE'LL SEEK OFF IT!! 
98: TST T. ROF *REAC ONLY 

BEQ 975 + NO 

JMP RDDF NC + YES 
975: JSR RS, GWCOA GET WORD COUNT. DA 


;WE NOW HAVE SECTOR AND WORD COUNT. LET'S WRITE BUFFER IN MEMORY 

>TO WRITE OUT TO DISK 

> FORMAT: WORD 1 - # OF WORDS IN SECTOR 

; : WORD 2 - ADDRESS OF PATTERN WRITTEN ON SECTOR 
WORD 3 - 127 DATA PATTERN 


JSR RS, WRBUF ;WRITE BUFFER INTO MEMORY 
MOV @WRITE.FUNC(CRY) 7; LOAD WRITE 
JMP ISSUE ;GO ISSUE FUNCTION 


_SBTTL ROUTINE TO LOAD READ DATA COMMAND 


; THIS ROUTINE WILL FIRST CLEAR OUT THE BUFFER AREA, 
;SELECT A RANDOM NUMBER OF WORDS TO READ AND A 
;RANDOM SECTOR ON THE PRESENT CYLINDER TO READ FROM 


ROOFNC: CMP #77700,PRPOS(R4) ;ON LAST TRACK? 

BNE 995 +NO CONTINUE 

JMP SKF NC YES SEEK OFF IT. 
999: JSR R5, GHCOA GET WORD COUNT. DA 
97S: MOV BMP(R4Y),R2 >CLEAR OUT BUFFER AREA 

MOV OBBACRY),R1 *SO WE KNOW REAL 
1$: CLR (R1)+ ; WORKED! ! 

INC R2 

BNE 1$ 

MoV #READ,FUNC(R4Y) ;LOAD READ 

JMP ISSUE 


SBTTL SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING 


/WE COME HERE BEFORE ISSUING ANY FUNCTION SO THAT ON INTERRUPT 
>WE CAN PROPERLY PROCESS THE INTERRUPT. WE WILL CHECK WHICH 

: CONTROLLER WE ARE WORKING WITH AND STORE OFF THE DRIVE BUFFER 
>POINTER IN IT'S “LSTOR™ 


OUTERR 
DZRLEA. 


4124 
4125 
4126 
412 
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014002 
014010 
014012 
014016 
014020 
014024 
014032 
014036 


014042 
01404e 
014052 


014054 
014054 
014056 
014060 


014062 
014070 
014076 
014104 
014112 
014120 
014126 
014134 
014142 
014150 


O14162 


06-DEC-77 


14-NOV-77 14: 04 


026437 
001003 
010437 
000402 
010437 
052764 
004537 
000137 


016403 
032713 
001093 


104421 
000310 
00252! 


017463 
016463 
016463 
016464 
056464 
052764 
042764 
016463 
042763 
000205 


000104 
002140 
002142 


000100 
014042 


012510 - 


000104 
000290 


000110 
000040 
000042 
000044 
000106 
000201 
002000 
000046 
000200 


002134 


000044 


000002 
000004 
000006 


“000046 


000046 
000046 
000046 
000000 
000000 


L 5 
-2 
SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING 
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ISSUE: CMP DCS(R4Y),CNTLR1 ;ORIVE ON CONTROLLER 1? 


BNE 1$ +NO, ASSUME ON CONTROLLER 2 


MOV R4Y,LSTOR1 +PUT BUFFER POINTER IN 1 


BR 25 :SKIP OVER NEXT INSTRUCTION 
1S: MOV R4, LSTORZ [PUT BUFFER POINTER IN 2 
25: BIS #INTEN, FUNC(RY) : ALLOW INTERRUPTS 
JSR RS, LOFUNC [NC WE ISSUE IT 
yMP MAIN >GO BACK AND DO ANOTHER 
.SBTTL ROUTINE TO LOAD FUNCTION 
:CALL JSR PS, LDF UNC 
[ALL INFORMATION MUST BE SET UP IN DRIVE BUFFER 
RY HAS POINTER TO BUFFER 
LOFUNC: MOV DCS(R4),R3 GET CSR FOR DRIVE 
BIT #81T7, (RB) >CAN WE ISSUE COMMAND? 
BNE 15 ;YES, GO ISSUE COMMAND 
ERRSF 200. PRGER THIS ERROR SHOULD NEVER PRINT 
TRAP - TSERCODE 
“WORD 209 
“WORD - PRGER 
1S. Mov DBBACRY),BACR3) : LOAD BUS ADDRESS REGISTER 


MOV BDACRY),DACR3) ;LOAD DISK ADDRESS REGISTER 
MOV BMP(RY),MP(R3) ;LOQD MULTI-PURPOSE REGISTER 


MoV FUNC (R4¥), BCSADR (RY) GET FUNCTION 


BIS DRSEL (RY), BCSADR(RY) SET ORIVE SELECT BiTS 
BIS #CRDY'DRDY,BCSADR(R4Y) = ;SET CRDY: DRDY IN IMAGE 


BIC #0P1,BCSADR(RY) 

MOV BCSADR(RY), CS(R3) >LOAD CSR 

BIC #CROY,. CS(R3) > ISSUE FUNCTION 
RTS RS ;EXIT : 


.SBTTL INTERRUPT SERVICE ROUTINES 
BGNSRV INTR1 


[ON INTERRUPT WE CHECK FOR ERRORS FIRST. IF NO ERRORS WE 

CHECK FUNCTION PREFORMED. WE ACT ACCORDING IF FUNCTION 
§- WRITE CHECK - NOTHING IF NO ERROR 

; 2 GET STATUS - READ AND CHECK DRIVE STATUS 

a SEEK - NOTHING RTI; SET RD HOR AS NEXT COMMAND 

> ye ROHDR - COMPARE HEADER TO PRESENT POSITION 

» &- WRITE - UPDATE XFER COUNT. EXIT 


1S: 


! 
; 6 READ - COMPARE DATA IF REQUESTED. UPDATE XFEP COUNT. EXIT 


ALL SUCCESSFUL EXITS FROM INTERRUPT ROUTINE TEST RETRY 
LIMIT IF RETRY 1S LESS THEN LIMIT THEN LOG SOFT EPROR, 
:1F RETRY = 0, THEN NOTHING 


/ON ERRORS - IF DRIVE ERROR - UNDER NON- INTERRUPT 


CLEAR PETRY 


:WE'RE CLEAR BIT 10 FOR DRIVE 7-4 (OKAY?) 


OUTERR 


ZPLEA. 
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014152 
014154 
014160 
014162 
014164 


"014170 


014174 
014200 
014204 
014210 
014214 
014220 
014224 
014230 
014234 
014240 
014244 
014250 
014252 
014254 
014256 
014260 
014264 
014272 
014300 
014306 
014314 
014322 
014330 
014334 
014336 


014342 


06-DEC-77 


14-NOV-77 14: 04 


010446 
013704 
C00403- 
010446 
013704 
013746 
013746 
013746 
013746 
013746 
013746 
013746 
013746 
013746 
013746 
013746 
013746 
010346 
010246 
010146 
010046 
016403 
016337 
016337 
016337 
016337 
016337 
016337 
005737 
100402 
000137 


013764 


002140 


002142 


002312 


000104 
000000 
000002 
000004 
000006 
000006 
000006 
002234 


015456 


002240 


002234 
002236 
002240 
002242 
002244 
002246 


N00064 
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“3 
INTERRUPT SERVICE ROUTINES 
GET STATUS - INVESTIGATE ERROR TYPE 
DRIVE RESET ey as tha a * cies - FATAL ERROR 


Re Ne Ne Be Be Be Be Be Be Be Be 


INTR2: 


SAVE: 


. SBTTL 


18: 


DO: 
DO: 


et 


SEQ 0064 


ERROR. 


EX 
DRIVE ERROR 1S LOGGED UNDER ALL CIRCUMSTANCES 


1F DCRC, 


HCRC. HNF CHECK BAD SECTOR LIST, 
IGNORE ERROR EXIT AS NORMAL. 
INCREMENT RETRY; 


IF IN LIST 
1F NOT IN LIST 


IF RETRY LIMIT EXCEEDED 


LOG HARD ERROR. ELSE RETRY FUNCTION 


IF OP1,NXM INCREMENT RETRY CHECK RETRY LIMIT 
IF RETRY EXCEEDED LOG HARD ERROR EXIT 
IF RETRY NOT EXCEEDED RETRY FUNCTION 


R4,-(SP) 


~ LSTOR1,R4 


LSTORZ,R4 

E. cS, -(SP) 
E. BA, - (SP) 
E. DA, - (SP) 
E. MP, =(SP) 
—. MP1,- (SP) 
—. MP2,-(SP) 
CHKSEC, -(SP) 
HDORFND, - (SP) 
TEMP1, -(SP) 
WHY, - (SP) 
OPCALL, - (SP) 
INCALL, - (SP) 
R3,.-C(SP) 
R2.-(SP) 

Ri, - (SP) 

RO. - (SP) 
DCS(R4), "ie 


CHKF NC 


SAVE PRESENT RY VALUE 

GET THE DRiVE BUFFER OF INTERRUPTING DRIVE 
*GO SAVE RO-R3 

; SAVE PRESENT RY VALUE 

;GET THE ORIVE BUFFER OF INTERRUPTING DRIVE 


; SAVE RZ 

R2 

>R1 

;RO 

>GET CSR FOR INTERRUPT 
;SAVE ALL REGISTERS NOW!! 


ANY ERRORS? 
+ YES. GO SOLVE ERPOR MYSTERY 
NO, GO SEE IF WE HAVE TO DO ANYTHING 


CONTROLLER ERROR CHECK ROUTINE 
i a SOME SORT OF ERROR LET'S FIND OUT WHICH ONE 
$47 0%. 


MoV 


E. DA, LSTDACRY) 


;SAVE DA FOR SOFT ERROR PRINT 


oo 


N 5 
OUTERR MACY11 30(104%6) O6-DEC-77 18:09 PAGE 87- 
DZRLEA. Pil 14-NOV-77 14: 04 CONTROLLER ERROR CHECK ROUTINE SEQ 0065 


4233 014350 032737 040000 002234 BIT #DERR.E.CS ;ORIVE Enron? 
4234 014356 001402 BEQ 2$ ;NO, CONTINUE 
4235 014360 000137 016440 JMP CKDERR ; YES, GO CHECK DRIVE ERROR 
4236 014364 032737 000001 002234 2%: BIT #ORDY,E. CS sORIVE READY THERE 
4237 014372 001017 BNE 23% ;YES, CONTINUE CHECKING 
4238 014374 004537 021046 JSR RS, GETOST ;NO,GET DRIVE STATUS 
4239 O14400 042701 000100 BIC #100, R1 ;GET RID OF HEAD 
4240 014404 020127 000034 CMP R1, #34 ;ALLOW ONLY SEEK TRACKING STATE 
avi 014410 001410 BEQ 238 ;WAS 34 SKIP ERROR 
4243 014412 005264 000012 INC ERRCNTC(RY) ; INDICATE HARD ERROR 
4244 014416 ERROF 1000. .NORDY, ERRS 
(3) O14416 104462 TRAP TSERCODE 
(5) 014420 001750 WORD 1000 
(5) 014422 002473 WORD = NORDY 
ie 014424 005034 WORD = ERRO 
24 
426 014426 000137 016270 _JMP EXIT1 
UF 
4248 014432 032737 020000 002234 235: BIT #NXM.E. CS ;NON-EXISTANT MEMORY? 
4249 O14440 (01407 BEQ 38 ;NO. KEEP CHECKING 
4250 014442 012764 004137 000052 MOV #MTNXM, RTYPECR4) [ERROR MESSAGE 
4251 014450 005264 000034 INC NXMCNT CRY) ;L0G ERROR 
4252 014454 000137 015062 JMP 1115 ;CHECK RETRY, EXIT BACK 
4 
4254 014460 032737 014000 002234 36: BIT @BITIZ'BITI1.E.CS ;QUALIFING BITS SET? 
4256 014466 001020 BNE 55 ; YES, CAN'T BE OPI ALONE 
q 
4257 014470 032737 002000 902234 BIT #OPILE.CS :OP | SET? 
$258 014476 001006 BNE us > YES. CONTINUE 
4 
4260 014500 ERRSF 10.,UDERR.ERR1 ;WE HAVE AN UNDIAGNOSABLE CONDITION, ONLY COMPOSITE SET 
(3) 014500 104461 TRAP TSERCODE ' 
(5) 014502 000012 WORD 10 
(5) 014504 002576 WORD UDERR 
(5) 014506 004270 WORD = ERR1 
4261 014510 335: BREAK 
(3) 014510 104022 EMT CSBRK 
4262 014512 000776 BR 335 
4263 
4264 
4265 014514 012764 004132 000052 4S: MoV #MTOPILRTYPECR4);SET UP FOR “OPI” PRINT 
W266 014522 005264 000030 INC OP ICNT(RY) ;LOG ERROR 
4267 014526 000555 BF 1118 ;CHECK RETRY EXIT BACK 
4268 
4269 :WE KNOW IT'S NOW EITHER DLT. DCRC-HNF, OR HCRC 
4270 > CHECK FOR EACH 
4271 
4272 014530 032737 002000 002234 5%: BIT #OP ILE. CS :OP1 QUALIFIER SET? 
4273 014536 001060 BNE 7$ ; YES. THEN IT'S HCRC OR HNF 
4274 
4275 -1T'S NOW DOWN TO DLT OR DCRC 
4276 
4277 014540 032737 010000 002234 BIT #DLT-E.CS ;DATA LATE? 
4278 014546 ‘p01406 BEQ of ;NO, MUST BE DATA CRC 


4279 014550 012764 004125 000052 MoV SMTOLT.RTYPECR4): SET UP FOR “DLT"PRINT 





i= To) 


rR RE CW gy 


ee __ 
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OUTERR MACY11 30(1046) O6-DEC-77 18:09 PAGE 87-5 
DZRLEA. P11 t4-NOV-77 14: 04 CONTROLLER ERROR CHECK ROUTINE SEQ 0066 

4280 014556 005264 000026 INC DLTCNT (RY) +LOG ERROR 
m4 014562 000537 BR 1118 CHECK RETRY, EXIT 
4283 014564 013737 002240 002156 6%: MOV E. DA, CHKSEC + SET UP SECTOR TO LCOK FOR 
4284 014572 005364 000064 DEC LSTOACRY) +DOWN COUNT FOR PRINT OUT 
4285 014576 005337 002156 DEC CHKSEC +DOWN COUNT FOR LOOP UP 
4286 014602 004537 023640 JSR RS, CKBDSC CHECK BAD SECTOR LIST 
4287 014606 005737 002154 TST HORF ND +WAS HEADER THERE? 
4288 014612 001115 BNE 110% + IGNORE ERROR, RETURN 
4289 014614 005264 000022 117%: INC DCRCER(RY) ACCOUNT FOR ERROR 
4290 014620 012764 004120 000052 MOV #MTOCRC, RTYPEC(R4Y); SET UP FOR “DCRC"™ PRINT 
4291 014626 022764 000102 900044 CMP # INTEN!WRCHK, FUNC CRY) 
4292 014634 001001 BNE 118% 
ace 014636 000511 BR 111% 
4294 
4295 014640 005737 007530 1185: TST T. DOCK ;DUMP BUFFER? 
4296 014644 001506 BEQ 111% *NO, EXIT 
4297 014646 PRINTF #FMT14, #OMPDCK 

(8) O1464€ 012746 003054 MOV ROMPDCK, -(SP) 

(7) 014652 012746 006473 MOV #FMTI4, -(SP) 

(6) 014656 C12746 000002 MOV #2,-(SP) 

(3) 014662 010600 ‘MOV SP, RO 

(4) 014664 104017 EMT CSPNTF 

(4) 014666 062706 000006 ADD #6. SP 
nae 014672 004537 023000 JSR RS, OMPBUF > DUMP BUFFER 
4299 
oar 014676 000471 BR 111% 7 EXIT 
4301 
4302 >'T'S NOW EITHER HNF OR HCRC 
4303 > 1F HCRC AND RDHOR, DETERMINE IF BAD SECTOR BY DOING 40 RODHORS 


4304 > 1F HCRC AND R/W. CHECK IF DA IS IN BAD SECTOR FILE 


4305 > 1F HNF READ HEADER TO VERIFY IF ON CORRECT CYLINDER 

4306 > THEN IF ON CORRECT CYLINDER SEE IF DA IS A BAD TECTOR 

4307 > 1F NOT ON CORRECT CYLINDER REPORT MISSEEK, LOG MISEEK 

4308 ;AND PRESENT POSITION UPDATE 

4309 

4310 014700 032737 010000 002234 7%: BIT #HNF.E. CS >HEADER NOT FOUND SET? 

4311 014706 031466 BEQ 1128 ;NO 1T MUST BE HCRC 

4312 014710 012701 000051 MoV #41.,-R1 ;ALLOW FOURTY READ HEADERS TO 
4313 014714 004537 021062 8$: JSR RS, ISORST 

4314 014720 016402 000106 MoV DRSEL(R4).R2- *>FIND CYLINDER 

4315 014724 052702 000010 BIS #ROHOR, RZ *READ HEADER 

4316 014730 016493 000104 MoV DCS(RY). RS 

4317 014734 010263 000000 MOV R2,CS(R3) + ISSUE READ HEADEP 

4318 014740 004537 020776 JSR RS, WTRDY > WAIT 

4319 014744 005301 DEC Ri DONE 4O OF THESE? 

4320 014746 001422 BEQ 93 >YES, GIVE UP WE DON'T HAVE ALL 
4321 014750 005763 000000 TST CS(R3) DAY, IS ERROR SET? 

4322 014754 100757 BMI 8$ 7 YES, GO DO IT AGAIN 

4323 

4324 014756 016301 9000006 . MoV MPCR3).R1 *GET HEADER 

4325 014762 043701 002132 BIC SECMSK, R1 *MASK OUT SECTOR BITS 

4326 014766 020164 9000120 CMP 1. PRPOSCRY) > 1S CYLINDER HEAD CORRECT? 
4327 014772 001415 BEQ 108 >YES. GO CHECK BAD SECTOR LIST 
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DZRLEA. P11 14-NOV-77 14: 04 CONTROLLER ERROR CHECK ROUTINE SEQ 0067 
4320 014774 005264 000072 INC TRERR(RY) 
4331 015000 ERRHRD 20.,TRACK.ERRZ2 ; TRACKING DRIFT ERROR 
‘3) 015000 104463 TRAP TSERCODE 
(5) 0165002 000024 .WORD 20 
(5) 015004 003074 .-WORD = TRACK 
(5) 015006 004276 .WORD = ERRZ2 
4332 
4333 
ta 016010 000137 015760 JMP SKRETRY ;F IX TRACKING ERROR 
YS 
4336 
4337 015014 95: ERRHRD 30.,EXHAUS,ERR1 ; WE CAN'T FIND GOOD HEADER ON THIS TRACK 
3» QO16014 104463 TRAP TSERCODE / 
iS) 016016 000036 . WORD 30 
(5) 016020 002562 ~WORD EXHAUS 
‘6 016022 004270 WORD = ERR1 
4338 
4339 015024 000410 BR 110$ 
4340 
4341 015026 013737 OO2z240 002156 10S: MoV E. DA. CHKSEC 
4342 015034 CO4537 023640 JSR RS, CKBOSC ;GO CHECK BAD SECTOR FILE 
4343 015040 005727 002154 TST HORF ND ;WAS iT THERE 
4344 015044 001401 BEQ 11$ ;NO, LOG IT EXIT 
oT 015046 000577 1108: BR GOERRX > YES !GNORE ERROR 
4346 
4347 015050 005264 00032 11%. INC HNFERR CRY) 7406 IT 
4348 015054 O12764 OO410S AOnNS2 Mau @MTHNF,RTYPECR4); SET UP FOR “HNF" PRINT 
4349 015062 000572 L118: BP GOF IN > EXIT 
4350 
4351 
4352 F ; 
4353 : 17 WAS A HEADER CRC ERROR, FIGURE OUT IF IT WAS 
4354 ; :QN A READ HEADER OR READ/WRITE 
4355 ; 
4356 
4357 015064 22764 900110 O00044 11238: CMP ® INTEN'ROHDR,.FUNCCR4Y) © ; READ HEADER? 
4358 015072 001417 BEQ 13% > YES, GO.FIND QUT MORE ABOUT IT 
4359 ;NG, iT MUST BE R/W 
4360 016074 013737 002240 002156 MoV £. OA, CHKSEC 
4361 615102 004537 0223640 JSR RS, CKBOSC >BAD SECTOR SEARCH 
4362 0165106 005737 002154 TST HORF NO ;WAS OUR DA THERE? 
4363 O16:12 001401 BEQ 12% ;NO, MUST BE LEGIT ERROR 
4304 015114 000554 BR GOERRX ; YES. iGNORE ERROR 
4365 
4366 015116 005264 0000724 125 INC HCRCER (RY) >;LOG ERROR 
4367 015122 012764 O04112 AGNNS2 Moy AMTHCRC, RTYPE CRY) 
qo: 015130 000550 . BP GOF IN 
436 
4370 015132 017401 000110 138: MoV @BBACRY).R1 ;USE IT'S BUFFER TO STORE HORS 
4371 015136 012737 OO00050 O02164 MoV #40., TEMP1 >4O CONSECUTIVE HEADERS 
4372 015144 012702 000010 148: MoV #RDHOR, R2 ;READ HEADER - 
4373 015150 056402 000106 BIS DRSEL (RY), R2 ; 
4374 015154 016403 000104 MOV DCS(R4),R3 b 
4375 O15T60 016263 000000 MoV R2,CS(R3) j : 
4376 015164 004537 02077e JSP RS, WTROY ;WAIT FOR READY 


4377 015170 016321 900000 MoV CSCR3). CRLD+ >READ ALL REGISTERS 


an 





OUTERR 
OCPLEA 


D 6 


MACY11 30(1046) O6-DEC-77 18:09 PAGE 87-7 
Pil 14-NOV-77 14: 04 CONTROLLER ERROR CHECK ROUTINE 

015174 016321 000006 MoV MPCR3), (R14 3; 

015200 016321 000006 : MOV MPCR3),(R1)+ 3; 

015204 016321 000006 MOV MP(R3),(R1)+ 3; 

015210 005337 002164 DEC TEMP 1 ;DONE 40 YET? 

015214 001353 BNE 14$ ;NO, GO BACK 

;WE HAVE 4O HEADERS NOW LETS SEE IF WE CAN VERIFY WHETHER 


;OR NOT A BAD SECTOR CAUSED THE ERROR. CHECK FIRST TO SEE 
7 1F WE HAVE ANY BAD SECTORS ON THIS TRACK. 
015216 017402 0600110 995: MoV OBBACRY), RZ GET BUFFER START 
015222 012701 9000050 MOV #40.,R1 ;FOURTY HEADERS H 
015226 032712 002000 158: BiT ROP I, (RZ) 1S OP! SET IN CS 
015232 001403 BEQ 16% NO, WELL CAN'T BE HCRC 
015234 032712 004000 BiT #HCRC, (RZ) + INSURE HCRC W/OP | 
015240 001005 BNE 17% ;FOUND GO SEE IF IT COMPARES 
015242 662702 000010 16S: ADD #10,R2 >NEXT CS IMAGE 
015246 005301 DEC Ri >DONE 40 
015250 001366 BNE 15$ 
016252 000721 BR 12$ 
015254 Q20274 000110 17%: CMP RZ, ABBACRY) > 1S HEADER FIRST ONE? 
015260 001046 BNE 21% 7NO, READ PREVIOUS HEADER 


YES, WE'LL HAVE TO GO THRU 
>AND CHECK OTHERS BEFORE WE 


:CAN SAFELY CALCULATE 

»" SUPPOSED" BAD SECTOR 
016262 017401 9000110 MoV @BBACRY),R1 
015266 012703 000001 MoV #1,R3 
015272 062701 000010 18%. ADC #10,R1 
015276 032711 002000 BIT eOPI, (RI) 
015302 OO01416 BEQ 198 
015304 032711 004000 BIT #HCRC, (RI) 
016310 001413 BEQ 19$ 
015312 005203 INC R3 
015314 022703 900017 CMP #15. ,P3 
015320 001364 BNE 18$ 
015322 012737 003457 002116 MOV #MBOMSC. WHY >DROP DRIVE DUE TO 
015330 004537 020144 JSR RS, ORORV >MORE THAN 16 BAD SECTORS 
015334 0600137 016270 JMP EX!T1 
015340 005012 198: CLR (R2) CLEAR THIS CS 
015342 062701 900002 ADD #2-R1 ;GET IT'S HEADER ADDRESS 
015346 011102 MoV (R1),R2 >GET HEADER 
015350 010201 MoV R2-R1 ; SAVE HEADER 
015352 042702 177700 BIC #177700, R2 *MASK ONLY SECTOR 
015356 160301 SUB R3,R1 BACK UP TO SECTOR WHICH 1S BAD 
015360 100402 BMI 20$ 7 1F MINUS DO MAGIC 
015362 160302 SUB R3,R2 >NO THEN SUBTRACT 1S LEGAL 
015364 000421 BR 22$ >BRANCH TO CHECK FILE 
015366 166302 208: SUB R3,R2 > THIS SUB PRODUCES WRONG ANSHIEF 
015370 062702 000050 ADD #50.R2 7FIX IT UP 
015274 000415 BP 22$ >GO CHECK FILE 





SEQ 0068 





OUTERR 
OZRLEA 


4434 


4483 


44sy 
44So 


MACY11 30° 1046) 


PL 


015376 
015400 
015404 
015406 
015410 
015412 
015416 
015422 
015424 
015430 
015434 
015440 
015444 
C1S446 


015462 


015456 
015462 
015464 
015470 
015472 
015474 
015500 
015504 
015506 
015510 
015512 
015514 
015516 
015520 
015522 
015524 
015530 
015532 


015534 
015534 
015536 
015540 


015542 
015544 


06-DEC-77 


14-NOV-77 14: 04 


005012 


001664 
00913? 


000137 


016401 
006201 
042701 
005301 
001004 
004537 
000137 
005301 
001555 
005301 
001416 
005301 
001470 
005301 
001002 
000137 
005301 
001425 


104421 
000322 
002521 


000000 
000137 


000006 


177700 
000050 


000050 
002156 
023640 
002154 


016274 


016376 


000044 
000040 


011366 
016236 


Dibl4e 


E 6 
18:09 PAGE 87-8 
CONTROLLER ERROR CHECK ROUTINE 


215: CLR (R2) 


SUB #6,R2 

MOV (R2), RI 

INC R1 

MOV R1,R2 

BIC #177700,R1 

CMP #40..R1 

BLT 228 

SUB #40. .R2 
228: MoV RZ, CHKSEC 


JSR RS, CKBDSC 
TST HORF ND 


BE 
GOERRX: JMP 


ERREX 
GOF IN:  JMP F INERR 
_SBTTL COMMAND SERVICE ROUTINES 


> THERE WAS NO ERROR SO......... 


CLEAR THIS CS OUT 
GET PREVIOUS HEADER 


NOW WE WILL FIND OUT WHICH FUNCTION WE DID TO CAUSE 


> INTERRUPT AND ACT ACCORDINGLY 


, 


CHKFNC: MOV FUNC (RY). F1 
ASR 


RI 
Bic #40,P1 
OrC R1 
BNE 2$ 
JSR RS, CLRWCE 
JMP EXIT 
2$ DEC R1 
BEQ AGSTAT 
DEC R1 
BEG ASEEK 
DEC R1 
BEQ AROHOP 
DEC Ri 
BNE 1$ 
JMP AWR ITE 
1$ DEC RI 
BEQ AFREAD 
ERRSF 210..PRGER 
TRAP TSERCODE 
.WORD 210 
WORD = PRGER 
HALT 
XEXIT:  JMP EXIT 


GET FUNCTION OF DRIVE 
>ALIGN THE FUNCTION CODE 


;WIPE OUT INT. ENAB (SHIFTED) 


>WRITE CHECK?? 
>NQ, BRANCH. 


;GET STATUS? 
;BRANCH IF SO 
> SEEK? 


>BRANCH !F SO 
; ROHDR? 
BRANCH IF SO 
»WRITE? 

*NQ-. BRANCH 


:READ? 
BRANCH IF SO 


SEQ 0069 


Pe 


F 6 
OUTERR ACY 1 3011046) 06-DEC-77 18:09 PAGE 87-9 
DZPLEA. Pi 18-NOV-77 14: 04 COMMAND SERVICE ROUTINES SEQ 0070 
yus? 
Wugs -SBTTL SEEK 
4490 015550 052764 000001 000056 ASEEK: BIS #SKDON, PRFLGS(R4Y) SET SEEK VERIFY NEEDED 
4491 015556 005264 900054 INC SKCNT1 CRY) : INCREMENT COUNT 
4492 015562 026427 000054 001750 CMP SKCNT1(R4), #1000. ;10(3) REACHED 
4493 015570 002404 BLT 99 :NO, EXIT 
4494 015572 005264 000000 INC SKCNT(R4) > YES, BUMP THOUSANDS 
4495 015576 005064 o00054 CLR SKCNT1 (RY) 
449@ 015602 000137 016274 995. JMP ERREX | 
4497 
yy og -SBTTL READ | 
¥4a9 
uSG0 015606 AFREAD: SETPRI #340 
(3) 015606 012700 000340 MoV #340, RO 
(2) 015612 104041 EMT CSSPRI 
W501 015614 004537 020424 JSR RS, CKDATA CHECK DATA 
W502 015620 AF URCK: 
4503 015620 016401 o00C42 15: MoV BMPCRY), RI ;BUMP UP XFER COUNT 
yS0N 015624 005401 NEG R1 [MAKE POSITIVE 
u505 015626 60164 000002 ADD RI-RXFRICRY) ADD THE BITS 
y506 015632 022764 023420 00002 CMP #10000..RXFRI(RY) ;10(8) REACHED YET 
y507 015640 101016 BHI 2$ :NO, EXIT 
y508 015642 005264 o00004 INC RKFRZ(RY) [BUMP 10(10) 
y509 015646 162764 023420 oc0002 SUB #10000. ,RXFRI(RY) START 10(8) AT O 
W510 015654 022764 023420 900004 CMP #10000..RXFR2(R4) ;10(10) REACHED YET 
4511 015662 101005 BHI 28 :NO, EXIT 
W512 015664 005264 900060 INC RXFR3(RY) :YES BUMP 65K 10(10) 
4513 015670 162764 023420 oo0004 SUB 10000. -RXFRZ(RU) : MAKE 10(107 0 
sti 015676 000557 25. BP EXIT EXIT 
451 
4516 SBTTL READ HEADER 
u517 
W51g 01700 013701 002242 ARDHOR: MoV EMP, PI :GET HEADER 
W519 015704 043701 002132 BIC SECMSK. RI “MASK OUT SECTOR BITS 
4520 015710 026401 000120 CMP PRPOS(RY).P1 1S HEADER CORRECT? 
W521 O15714 001442 BEQ 15 YES, CONTINUE 
W622 
4523 015716 032764 o0000! 00056 BIT #SKDON. PRFLGS(R4) = 1S THIS MIS-SEEK OR TRACKING ERROR 
W524 015724 901407 BEQ 25 “BRANCH IF TRACKING 
4525 
W526 015726 005264 00016 INC SKECNT CRY} SACCQUNT FOR SEEK ERPOP 
uB2? O1S732 ERRHRD 50. MSKER. ERPZ 
(3) 015732 104463 TRAP  - TSERCODE | 
(5) 015734 000062 WORD 50 
(5) 015736 002620 “WORD  -MSKER 
(5) 015740 004276 WORD  ERR2 
W528 015742 000406 BR 38 -BRANCH AROUND TRACKING ERROR PEFORT 
4529 
W530 015744 005264 oo0072 8 INC TRERR(RY) [ACCOUNT FOR TRACKING ERFOR 
4531 015750 ERRHRD 5S.,TRACK.ERRZ2 : TRACKING EPROP 
(3) 015750 104463 TRAP TSERCODE 
(5) 015752 000067 WORD 55 
'5) 015754 003074 WORD TRACK 
(5) 015756 004276 -HORD = ERRZ 7 


ie ae 


OUTERP 
DZPLEA 


4533 
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Pil 


015760 
015764 
015772 


015774 
015774 
015776 
016000 
016002 
016004 


016006 
016012 
016020 
016022 
016020 
016034 
016040 


016042 
016046 
016052 
016056 
016060 
016064 
016070 


016072 
016076 
016076 
016100 
016102 
016104 


016106 
016110 
O10114 
016120 
010122 
016126 


016130 
016134 
016134 
016136 
016140 
0160142 


0160144 


3011046) 
14-NOV-77 


015760 


005264 
026437 
101405 


104463 
000515 
003312 
004276 
000406 


010164 
042764 
000506 
042764 
005064 
010164 
000476 


013701 
042701 
005737 
001402 
042701 
032701 
001406 


005264 
104463 
000074 
002705 
004500 


010102 


005264 
104463 


N04 34 


i 


000114 
000114 


000050 
000001 


000001 


000114 
000120 


OOl24<2 
noo100 
007544 
026000 
177400 


000012 


177700 
000034 


no0035 


HONO12 


007552 


000056 
N00056 


O6-DEC-77 18:09 PAGE 87-10 
4: O04 


SKRETRY=. 


4$ 


1$. 


~ 
sr 


SETTL 


INC 
CMP 
BLOS 


ERRHRD 
TRAP 


G 6 
READ HEADER 


RSEEK(RY) ;SET RETRY IN PROGRESS 
;NO, THEN RETRY 


333. , SEXHAU, ERRZ 
TSERCODE 

333 

SE XHAU 

ERR2 

1$ 


R1i,LSTHOR(R4Y) ;SET UP RETRY 
#SKDON, PRFLGS(RY) ta SEEK 


EXIT ;EXI 

#SKDON. PRFLGS(R4Y) ;SET VERIFICATION DONE 
PSEEK(PY> 

R1-PRPOS(RY) ;MAKE THIS HEACER PRESENT POSITION 
Ex(T EXIT 


GET STATUS 
E. MP. Pi >GET STATUS 
#100,P1 :CLEAR OUT HEAD SELECT 
T. ROF :PEAG ONLY 
2$ 
#WL, R1 
#177400.R1 -ANY BITS WRONG 
1$ >NOQ. CONTINUE 
ERRCNTCRY? STATUS BITS WRONG 
66. MOSER. EPPY4 
TSERCODE 
60 
MOSER 
ERRY 
P1.R2 >COPY STATUS WORD 
#177700.R2 :GET STATE BITS , 
#34,R2 -COVER CLSO. HEROS GUT, BRUSHES HOME. 
EXIT SVES. EXNT 
#35,R2 >COWEPR CLSO. HERDS OUT. BRUSHES HOME. 
EXIT 7 TES. EXIT 
ERRCNT(RY?) 
70. -MDSEP. EPR 
TSERCODE 
70 
MOSER 
ERPY 
ExiT 

WRITE 


SEQ 0071 


SEEK TRACK COUNTIN 
SEEK LINEAR MODE 


v4 
| 
! 


| a ae 


GUTERP MACY11 30(104%6) O6-DEC-77 18:09 PAGE 87-11 


Hele Ol64¥1l6 005264 900012 18: INC ERRT - INDICATE EPROF 





DZPLEA P11 14-NOV-77 14: 04 WRITE SEQ 0072 | 
uS77 016146 016401 000042 AWRITE: MOV BNP(R4Y),R1 ;GET WORD COUNT 
4578 016152 005401 NEG Ri ;MAKE POSITIVE | 
4579 016154 060164 000006 ADD R1,WXFRICRY) ;ADD THE BITS 
4580 016160 022764 023420 000006 CMP #10000. ,WXFRICRY) 1008) YET? 

4581 016166 101023 BHI EX :NO, EXIT 

4582 016170 005264 000010 INC MF R2CRY) [YES BUMP 10(10) | 

4582 016174 162764 023420 000006 SuB #10000... WXFRI(R4Y) ;10(5) GOES TO ZERO 

4584 016202 022764 023420 000010 CMP #10000. .WXFR2(R4) :10(10) YET? 

4585 016210 101012 BHI EXIT ;NO EXIT | 

uS586 016212 005264 000062 INC WXFR3CRY) ; INC 65K (10910) 

4587 016216 162764 023420 000010 Sus #10000. .WXFR2(R4) ;MAKE 10(10) 

45S 016224 005737 007562 TST T WCK ;PERFORM WRITE CHECK 

4589 016230 001402 BEQ EXIT 

ne a 016232 004537 011330 JSP RS, SETWCK i 

1 

4592 016236 005764 000036 EXIT: TST RETRYC(RY) si PROCESS OF RETRYING? 
4593 Ole242 001414 BEG ERREX 0 | 

u594 616244 026427 O00052 AtuI44 CMP RTYPE (PU). SNTORW 

4595 016252 001406 - BEQ EX!T1 

4596 016254 005264 O00C14 INC SFTCNT(PY) ,YES, LOG SOFT ERROR | 

459 

4598 016260 EPRSOFT SO. .MSFER. ERR :REPORT SOFT ERROR | 
(3) 916260 104464 TRAP TSERCODE 
(5) 016262 000120 WORD 80 | 
(5) 016264 00263! WORD = MSFER | 
(5) 016266 004362 WORD EPRI 

4599 | 

ue00 016270 005064 o000l ExtT! CLR RETRYFRY) -CLEAR PETRY 

4601 

4602 016274 042774 O00100 A00:104 ERREX: BIC #INTEN. ADCS: RY | | 

4603 016302 012600 Mow (SP)+. PC 

4604 016304 012601 nov (SP)+,R1 | 

4605 016306 012602 Mov (SP )+,P2 

4606 016310 012603 Mow (SP)4,R2 

4607 016312 012637 002312 Mav (SP)+, INCALL 

4608 016316 012637 002310 MOVs (SP +, OPCALL 

4609 016322 012637 002116 MoV (SP)+, WHY 

4610 016326 012637 002164 Mou (SP)+, TEMP 1 

4el! 016332 012637 002154 Mow iSP)+, HDRF ND 

4Yol2 016336 012637 002156 MoV (SP )+. CHKSEC 

4613 016342 012637 002246 mov (SP 14,6. MP2 

W614 016346 012637 002244 May (SP)+,€. MPI 

4615 016352 012637 002242 Mavi iSP)+.£ MP 

4616 016356 012637 002240 Mou (SP)+,€. 0A ; 

4617 016362 012637 002236 Mow (SP)+.€ BA 

4618 016366 012637 002234 Mow (SP14,.€.C5 

4619 016372 012604 Mow (5P)+.R4 

4620 016374 ENDSP 
(3) 016374 L10022. 
(2) 016374 000002 RTI 

4621 , 

4622 016376 004537 917374 FINERR: JSR RS&.RCNT >CHECK TO SEE IF WE HAVE EXCEEDED 

4623 016402 O00405 . BR 1% /RETRY LIMIT. IF SG 1% AND PEPORT HAPD 
¥e24 O16404 013764 O02224 ON01te Noy pF hese. REL ES 
4625 0160412 000137 Ole274 JM x >NO xCEED “| 

PR TNR 


QUTERRP 
OZPLEA 


4627 
4628 
ee 


- 


MACY 11 
PL 


016422 
016422 
016424 
016426 
016430 
016432 


016436 


Die4un 
O1e44y 


016450 
016450 
O16452 
016454 
016456 


016460 
016464 
016466 
016472 
016474 
016500 
016502 
016506 
016510 
016514 
016516 
016522 
016526 
016532 
016534 
016542 


016544 
016550 
016554 
016560 
016562 


016570 
016574 
016600 
016606 


016610 
016616 


30(1046: O6- 
14-NOV-77 14:0 


104463 
000132 
003041 
004270 


peti 18:09 PAGE 87-12 


004537 011366 


000714 


005264 900020 
N04S37 O2104e 


O3270!: 001000 


001027 


032701 010000 


001070 


032701 144000 


001130 


032701 002000 


001003 


004537 021062 


0004 31 


004537 021062 
004537 021046 
022701 002000 


001422 


012737 0027 


000412 


4e 002116 


004537 021062 
004537 021046 
032701 001000 


001407 


012737 GO2721 OOllle 


004537 020144 
000137 016270 
032763 9000001 900000 


001004 


012737 OO24e0 ON211e 


000764 


. SBTTL 


WRITE 

90.,MHDER,ERR1 ;NON-RECOVERABLE ERROR 
TSERCODE 

90 

MHDER 

ERR1 

RS, CLRWCK 

EXIT1 


DRIVE ERROR SERVICE 

;WE HAVE A DRIVE ERROR. LET'S GET THE STATUS 

CKDERR: INC 
JSR 

>REPOFT ORIVE ERROR 


ERRHRD 
TRAP 

WORD 
_ WORD 
_ WORD 


DERCNT(RY) ; ACCOUNT FOR ERROR 
R5, GETOST *GET ORIVE STATUS 


224. .DRVER.ERR9 -ORIVE ERROR 
TSERCODE 

224 

DEVER 

ERR 


-ACT ACCORDINGLY T9 DRIVE ERROR 


20S: 


9$ 


915: 
108: 


BIT 
BNE 
BIT 
BNE 


#VC,R1 VOLUME CHECK? 
36 YES, GO ISSUE RESET 

#SKTO. RI ;SEEK TIME OUT? 

128 YES, ISSUE RESET 
#WDE'HCE'SPE.R1 : WRITE DATA, CURRENT HEAD. SPINDLE? 
15 ;GO WRIT FOR HEADS TO UNLOAD ~ 
#WGE RI ;WRITE GATE ERROR 

208 >YES, ISSUE RESET 

R5. 1SDRST ; 1SSUE RESET 

108 GO CHECK DRIVE READY 

R5, ISDRST : ISSUE RESET 

RS, GETOST RESET WORK? 

#HGE.R1 :WGE CLEAR 

108 YES GO CHECK DRIVE READY 
#NGEST. WHY -REPOPT WGE DIDN'T CLP 

918 DROP DRIVE 

RS. ISDRST ; ISSUE RESET 

RS. GETDST RESET WORK 

#VC, RI :VOL CHK CLEAR 

108 YES, CHECK DRiVE PEADY 

#AVCER, WHY DROP THE DRIVE 

RS, DRORV 

EXITI 

#ORDY,CS(R3) =: DRIVE READY POSTED? 

1018 YES. PRINT RECQUVERED 

SDNROY, WHY 

914 NO. DROP DRIVE 


i 
— 


SEQ 0073 


TE 


= 
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DZRLEA. P11. 14-NOV-77 14: 04 DRIVE ERROR SERVICE SEQ 0074 | 
{ 
4675 016620 101$:  PRINTB #FNTI4,#MRDER  ;PRINT ORIVE RECOVERED 
(8) 016620 012746 003001 Mov #MRDER. -/SP) . | 
(7) 016624 012746 0060473 Mov SFHITA4, -(SP) 
(6) 016630 012746 000002 Mov #2, -(SP) 
(3) 016634 010600 Mov SP.RO | 
(4) 016636 104014 EMT CSPNTB 
(4) 016640 062706 000006 ADD #6, SP 
ue76 016644 004537 017102 JSR RS, GHOR | 
4677 016650 000137 016376 MP F INERR 
W678 016654 012702 O00004 128. Mov #4, 22 ;SEEK TIME OUT | 
¥679 016660 004537 021062 136: JSR RS, ISDRST [ISSUE DRIVE RESET 
4680 [FOUR TIMES BEFORE 
4681 016664 WAITUS #15000. | DROPPING DRIVE 
(3) O16664 012700 035230 nov #15000. .RO 
(3) 016670104027 ENT CSWTU | 
4es2 
W633 016672 032763 000001 XD0000 BIT #DRDY,CS(R3) DRIVE READY YET? 
we84 016700 001006 BNE 145 “YES, CHECK IF ERROR CLEARED 
u68S 016702 005302 DEC R2 NO, HAVE WE DONE IT FOUR TIMES 
we8e 016704 001365 BNE 135 S YET 
4 
W688 016706 012737 002657 002116 141% Mov #MDERS. WHY YES. DROP DRIVE 
we89 016718 000725 BR 915 
U6 
4691 016716 032763 OvODD0 O00000 14s. BIT BDEPR.CS(R3) «DRIVE ERROR SET STILL 
W692 016724 001370 BNE 1415 “YES, DROP DRIVE 
W693 016726 PRINTB #FNTI4, #MRDER 
(8) 016726 012746 003001 Mov #MRDER, - (SP) 
(7) 016732 012746 006473 Mov #FMT14. -(SP) 
(6) 016736 012746 o00002 MoV #2, -(SP) 
(3) 016742 010600 Mov SP.RO 
(4) 016744 104014 EMT CSPNTB 
(4) 016746 062706 000006 ADD #6, SP 
4694 016752 004537 017102 JSR RE GHOR 
4695 016756 000137 016236 IMP EXIT 
4696 
W697 016762 012702 oD0004 155. MoV #4,R2 WAIT FOR HEADS TO UNLOAD 
W698 016766 004537 021046 166. JSR R5.GETOST GET STATUS 
4699 016772 032701 000020 BIT #BITH.R1 SUNLORO STATE 
¥700 016776 001411 175 “YES, CONTINUE W’ RECOVERY 
4701 017000 WAITMS #1. >WAIT A WHILE 
(3) 017000 012700 oo00001 Mov #1 RO 
(3) 017004 104026 ENT CSWTM 
4702 017006 005302 DEC R2 -WAIT LONG ENOUGH 
4703 017010 001366 BNE 165 NO. GO BACK 
4704 017012 012737 003336 OO2116 Mov #UNLOAD. WHY “DROP OP IVE 
4705 017020 000663 BR 915 
4706 
4707 017022 004537 021062 175: JSR RS, ISDRST ISSUE RESET 
¥708 017026 WAITMS @1. 
(3) 017026 012700 oo0001 MoV #1. RO 
(3) 017032 104026 ENT C$UT 
4709 017034 032763 O40000 oo0000 BIT SOERR.CS(R3> | DRIVE ERROR CLEAR? 
4710 017042 001321 BNE 141 “NO. DROP DRIVE 
¥711 017044 012702 900075 Mow #61. -R2 YES. WAIT 60 SECONDS 
712 017050 184 WAITMS #10. “FOR DPIWE READY To 





06-DEC-77 


aes 


OUTERR MACY11 30(1046) 18:09 PAGE 87- 
DZRLEA.P11 9 14-NOV-77 14: 04 DRIVE ERROR SERVICE SEQ 0075 

(3) 017050 012700 000012 Mov #10.,R0 
(3) 017054 104026 ENT CSUTM 

4713 017056 032763 000001 ocD0000 BIT #ORDY.CS(R3)  ; COME BACK 

4714 017064 901314 BNE 14$ ; 

W715 017066 005302 DEC R2 

4716 017070 001367 BNE 18 

4717 017072 012737 003362 002116 Mov #NOLOAD, WHY ;NO READY DROP ORIVE 

4718 017100 000633 BR: 915 

W719 

4720 

4721 017102 012763 000210 000000 GHDR. Mov #CROY!ROHOR, CS(R3) . 
722 017110 056463 000106 000000 BIS DRSEL (RY), CS(R3) 

4723 017116 042763 000200 o00000 Bic #200, CS(R3) 

W724 017124 004537? 020776 JSR RS, WTRDY 

4725 017130 016301 000006 MoV MPCR3),R1 

W726 017134 043701 002132 BIC SECNSK, R1 

W727 17140 010164 000120 Mov R1, PRPOS(RY) 

W728 017144 012764 004144 000052 Mov #MTORV.RTYPECRY) ; SETUP DRIVE ERROR 

4729 O17 152 000205 RTS RS 

4 

4731 ;ROUTINE TO WRITE A BUFFER INTO MEMORY. USES WORD COUNT AND BUS 

4732 ADDRESS FROM DRIVE BUFFER (R4). WILL WRITE RANDOM FROM ONE OF 

4733 /8 PATTERNS. USED BY WRITE FUNCTION AND WRPACK ROUTINE. 

4734 

W735 017154 010346 WRBUF. MOV R3,-(SP) : SAVE REGISTERS 

W736 017156 010246 Mov R2,-(SP) 

4737 017160 O101%6 Mov R1,-(SP) 

4738 017162 010046 Mov RO, -(SP) 

4739 017164 016402 000042 Mov BMPCRY),R2 ;R2 HAS TOTAL WORDS TO SET UP FOR 

¥740 017170 005402 NEG R2 ;POSITIVE NUMBER 

w741 017172 017401 000110 MoV aBBACRY),R1 ;WHERE BUFFER 1S 

W742 017176 020227 000200 28 CMP R2, #128. ;MORE THAN 128 WORDS 

4743 017202 002015 BGE 45 >YES, BRANCH 

w744 017204 020227 000003 CMP 22.83 ;GREATER THAN THREE WORDS 

4745 017210 002005 BGE 38 YES, BRANCH 

4746 017212 062702 000003 ADD #3.R2 ; ADD 

W747 017216 162764 000003 200042 SUB #3, BNP(RY) :WC UP BY 2 

W748 017224 010221 3S: now R2, (R1)+ STORE WC 
749 017226 005302 DEC R2 ;ACCOUNT FOR WC 

¥750 017230 010237 002176 Mov R2, TEMPS :LOAD DOWN COUNTER 

4751 017234 000405 BR eS 

W752 017236 012737 000177 002176 4S MOU #127... TEMPS ; LOAD DOWN COUNTER 

4753 017244 012721 000200 Nov #128. , (R1)+ 

4754 017250 005737 007546 58 TST T. RAN ;RANDOM SELECT OF PATTERNS 

u755 017254 001003 BNE 55 YEA 

4756 017256 013703 007550 Mov T. PAT. R3 ;NO GET PATTERN OPERATOR 

4757 017262 000406 BR 50S ;WANTS TO USE 

u758 017264 004537? 021140 555: JSR RS, RAND ;GET RANDOM # FOR PATTERN 

4759 017270 013703 002126 MoV LONUM, R3 ;GET RANDOM PATTERN 

4760 017274 042703 177770 , BIC #177770, R3 :0,2 

W761 017300 006303 S6$: ASL R3 ;WORD OFFSET 

W762 017302 062703 024324 ADD #PATLST-R3 ;GET PATTERN LIST 

4763 017306 011303 MOV (R3),R3 :GET LIST ADDRESS 

4764 017310 016337 002200 MoV R3, TEMP? STOR FOR RECALL 

W765 017314 010321 now R3,1R1)+ LOAD IT 

W766 017316 005337 002176 DEC TEMP6 ACCOUNT FOR 17 


OUTERR 


DZPLEA. 


4767 
4768 


4769, 


4770 
4771 
4772 
4773 


MACY11 3011646) 


Pil 


017322 
017326 
017334 
017336 
017342 
017344 
017350 
017352 
017354 
017360 
017362 
017364 
017366 
017370 
017372 


017374 
017402 
017404 
017410 
017412 


017414 
017416 
017420 
017422 
017424 
017426 
017430 


017432 
017434 


06-DEC-77 


14-NOV-77 14: 04 


013703 
012737 
012321 
005337 
001404 
005337 
001371 
000763 
162702 
003306 
012600 
012601 
012602 
012603 
000205 


0264237 
001402 
005264 
005725 
000205 


000000 
013662 
013304 
013324 
013324 
0i3ee2 
013732 


010046 
010146 


002200 
000020 


002176 
002202 


000200 


002202 


18:09 PAGE 87-15 


DRIVE ERROR SERVICE 


85: SUB 


. SBTTL 
>RETRY BUMP, 


000036 007470 RCNT: CMP 


N0003e 


BEQ 
INC 
TST 
18: PTS 


. SBTTL 


TEMP7, R3 
#16. . TEMPS 
(R3)+, (R1I)+ 
TEMP6 


8$ 

TEMPS 

7$ 
6$ 

#128. ,R2 
2$ 


(SP)+,R0 
(SP)+,R1 
(SP)+,R2 
(SP )+,R3 
RS 


RETRY LIMIT ROUTINE 


TWO RETURNS - CALL 
CALL 


;PATTERN START 
716 ENTRIES 
STORE PATTERN 
+DOWN COUNT 

; DONE? 

+DONE WITH PATTERN 
+NO. GO BACK 
RESTART PATTERN 
+ ANOTHER + eae TO USE 
+YES GO BAC 

> RESTORE REGISTERS 


RETRYCR4Y), LIMIT -LIMIT REACHED? 


1$ 
RETRYC(RY) 
(R5)+ 
V5 


+2 - RETRY EXCEEDED 
+4 - CONTINUE RETRY 


; YES TAKE FIRST RETURN 


ACCOUNT FOR RETRY 


: NEXT RETURN 
: RETURN 


LIST OF FUNCTION ROUTINES 


WE GO THRU THIS LIST WHEN CALLED IN “GETFNC™ 
-LIST 1S IN NUMERICAL ORDER 1-6 (CONTROLLER RESET - PEAD) 


WORD 
WR TF NC 
GSTFNC 
SKF NC 
SKF NC 
WR TF NC 
ROOF NC 


LIST 


0 


SBTTL BAD SECTOR FILE ROUTINE 
/ROUTINE TO RECOVER BAD SECTOR FILE AND SAVE IT FOR 


:COMPARISON UPON ERROR ON READS/WRITES 


7*WRITE DATA 
GET STATUS 
> SEEK FUNCTION 
> SEEK FUNCTION 
WRITE DATA 
7READ OARTA 


WE WILL 


>RESERVE SPACE FOR 16 BAD SECTORS PER DRIVE 


“;WE WILL ISSUE A DRIVE RESET FIRST. READ HEADER. 


ONLY 
POSITION 


>TO LAST TRACK (CYLINDER 255. SURFACE 1) AND READ IN 


; THE FIRST SECTOR FOR FACTORY BAD. 
:FIELO BAD SECTORS. 
>TO THE DRIVE WE WANT TO READ 


“CALL JSR 
RDBDSC. Mov 
MOV 


R5, RDBDSC 


RO. - (SP) 
R1.-cSP) 


SAVE PEGISTEPS 


AND THE 20TH FOR 
RY WILL CONTAIN THE BUFFER POINTER 


———__—— 


SEQ 0076 | 


OUTERR 


DZ2RLEA. 


W823 
4824 
4825 


Pi 


~ hia 3011046) 
14~-NOV-77 


017436 
017440 
017442 
017446 
017454 
017460 


017464 
017470 
017474 
017500 
017502 
017506 
017514 
017522 
017526 
017532 
017540 
017544 
017550 
017554 
017560 
017564 


017566 
017574 
017602 


017610 
017614 
017622 
017626 
017632 


‘017636 


017640 


017642 
017646 
017652 
017656 


017662 
017666 


617670 
017674 
017702 
017706 
017710 
017716 
017724 
017726 
017730 
017736 
017740 


010246 
010346 
004537 
012764 
004537 
004537 


016300 
043700 
012701 
160001 
010164 
052764 
012764 
004537 
004537 
012764 
004537 
004537 
016300 
C42700 
022700 
001326 


012764 
012764 
012764 


005037 
012737 
016402 
012700 
012722 
005300 
001374 


016402 
012700 
004537 
004537 


005774 
100025 


004537 
062764 
005737 
001410 
012737 
022764 
001352 
000470 
026427 
001345 
000463 


06-DEC-77 


14: 04 


021062 
000010 
014042 
020776 


000006 
002130 
077600 


000040 
000025 
000006 
014042 
020776 
000010 
014042 
020776 
000606 
000077 
077700 


077700 
177400 
000014 


002170 
003510 
000112 
000020 
177777 


000112 
000020 
014042 
020776 


000104 
021062 
000004 
602170 
003530 
077750 


900040 


18:09 PAGE -87-16 


BAD SECTOR FILE ROUTINE 


215: 


000044 


000040 
000044 


000044 


000040 
000042 
000044 


NO2116 


11%: 


4§ 


NO0G40 


002116 
000040 


O77724 5%: 


RZ, -(SP) 
ae vanes 
RS, ISORST 


#ROHOR, FUNC (R4); Ay TO FINC POSITION 


RS, LOFUNC 
RS, WTROY 


MP(R3),RO 
CYLMSK. RO 


R1, BOACRY 


; 


;GET HEADER AND CALCULATE 
+DIFFERENCE TO GET TO 
;BAD SECTER FILE. AND GO 
+ THERE 


SSKHS!SIGN!MK, BDACRY) 


#SEEK, FUNC (RY) 
RS, LDF UNC 
RS, WTRDY 


ROY 
#RDHOR, FUNC CRY) 


RS, LOFUNC 
RS, WTRDY 
MP(R3)-RO 
#77,R0 
#77700,R0 
21$ 


#77700, BDACRY) 
#-256. , BMP(RY) 
#READ, FUNC (RY) 


TEMP3 

#HWSEC, WHY 
BSECPT(R4Y), RZ 
#16. -R0- 

#-1, (R2)+ 

RO 

118 


BSECPT(R4).R2 
#16. -R0 
RS, LDF UNC 


. RS, WTRDY 


ODCS(RY) 
3$ 


RS, ISORST 

#4, BDACRY) 
TeMP3 

5$ 

#SWSEC. WHY 
#77750, BDACRY) 
4§ 

6$ 

BOACR4Y). #77724 
4S 


6$ 


; SETUP AND READ IN THE 
;BAD SECTOR FILE ON SECTOR 
:@ 


;MANUFACTURING/FIELD FILE SWITCH 
> START WITH MANUFACTURING BAD 
INITIALIZE LIST TO ALL 1°S 
SIXTEEN ENTRIES 


*GET LIST TO STORE 
SIXTEEN ENTRIES 


coed THE PEAD GOOD? 


, 


NO, NEXT SECTOR 
;MANUFACTURING OR FIELD BAD 
; MANUF AC TUR ! NG 

*FIELD BAD 

AT END OF FIELD BAD? 

;NO, GO BACK FOR NEXT 


> AT END OF MANUFACTURING BAD 


;AT END OF BAD FACTORY SECTION 
7 YES. REPORT ERROR 





lo ey 


OUTERR MACY11 30(1046) ere 18:09 PAGE 87-17 


on 





DZRLEA.P11 — 14-NOV-77 BAD SECTOR FILE ROUTINE SEQ 0078 
4879 017742 017401 000110 3s: Mov DBBACRY), RI ;START OF LIST 
W880 017746 012164 000100 Mov (R1)+,SERNMI(R4Y? ;GET LOW PART OF SERIAL & 
W881 017752 012164 000102 MoV (R1)+,SERNMZ(R4) ;GET HIGH PART OF SERIAL # 
W882 017756 022121 CMP (R1D+, (RID4 ;SKIP PAST JUNK 
4883 017760 012137 002164 1S: Mov (R1)+, TEMP4 ;GET CYLINDER 
y884 017764 100437 BMI 2$ ;1F MINUS END OF BAD SECTORS 
W885 017766 012137 002166 Nov (R1)+, TEMP2 ;GET TRACK AND CYLINDER 
4886 017772 000337 002164 SWAB sTEMP 1 ;PUT CYLINDER IN HIGH BYTE 
4887 017776 006237 002164 ASR TEMP 1 ;ALIGN IT 
W888 020002 013712 002164 Mov TEMP 1, (RZ) ;STORE OFF CYLINDER PART 
4889 020006 013737 002166 002164 Mov TEMP 2, TEMP4 ;GET SECTOR 
4890 020014 042737 177700 002164 BIC #177700, TEMP1 ; LEAVE ONLY SECTOR 
4891 020022 052712 002164 BIS TEMP 1, (R2) ;SET IN SECTOR BITS 
4892 020026 042737 177377 002166 BIC #177377, TEMP2 
4893 °020034 006237 002166 ASR TEMP2 
4894 020040 006237 002166 ASR TEMP2 
4895 020044 053722 002166 BIS TEMP 2, (R2)+ ;SET IN HEAD 
w89@ 020050 005300 DEC RO 
4897 620052 0601342 BNE 15 
W898 020054 012737 003457 002116 Mov #MBOMSC, WHY ;MORE THAN i6 BAD SECTORS 
4899 020062 000412 BR 6% 
4 
4901 020064 005737 002170 28: TST TEMP3 ; SWITCH TO FIELD BAD OR QUIT 
y902 020070 001011 BNE 75 ;QUIT, 7% 
4903 020072 012764 077724 00040 Mov #77724, BDA(R4) ;SWITCH TO FIELD BAD 
4904 020100 012737 900001 002170 MOV #1, TEMP 3 ;SET TO QUIT NEXT TIME THRU 
4905 020106 000661 BRS 
4 
4907 020110 004537 020144 6s: JSR RS, DRORY ;DROP THE DRIVE 
4908 020114 004537 022374 75: JSR RS, HDHOME _ BRINGS HEADS HOME 
y909 020120 012603 95. MOV (SP)+,R3 
4910 020122 012602. MOV (SP)+,R2 
4911 020124 012601 MOV (SP)+,P1 
y912 020126 012600 Mov (SP)+, RO 
4913 020130 000205 RTS R5 
4914 
4915 020132 004537 020144 8s. JSR RS, ORDRY 
4916 020136 020770 BR 9$ 
4917 
4918 
W919 
4920 
W921 
4922 
4923 
4924 SBTTL ROUTINE TO DROP DRIVE 
4925 
4926 ROUTINE TO DROP A DRIVE FROM RUNNING 
4927 ;RU HAS BUFFER POINTER OF DRIVE TO DROP 
4928 ;WE CLEAR BIT IN “DRUT", NOT “DRPRS" 
4929 ; 
4930 
4931 020140 005237 002310 ODRDRV: INC OPCALL 
4932 020144 O1C146 DRORV: Mov R1,-(SP) 
W932 020146 010246 MoV R2,-(SP) SAVE REGISTERS 
4934 020150 010346 MoV R3,-(SP) 


OUTERR 


DZRLEA. 


MACY11 30(1046) 
il 14-NOV-77 14 


020152 
020156 
020160 
020164 
020170 
020172 
020174 
020176 
020200 
020204 


020206 
020212 
020214 
020214 
020216 
020220 
020224 
020230 
020236 
020244 
020246 
020252 
020256 
020256 
020262 
020266 
020272 
020276 
020302 
020306 
020312 
020316 
020322 
020324 
020326 
020332 
020332 
020336 
020342 
020344 
020350 
020354 
020360 
020362 
020364 
020370 
020370 
020374 
020400 
020402 
020404 


020410 
020414 


005237 
005003 
012792 
012701 
020402 
001405 
005203 
006301 
062702 
000771 


005737 
001002 


010300 
104053 
005037 
005037 
113764 
113764 
C01002 
105264 
140137 


012746 
016446 
012746 
013746 
013746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 


013746 
012746 
005046 
156416 
012746 
012746 
010600 
104017 
062706 


012746 
012746 
010600 
104017 
062706 


004737 
012603 


002312 


024752 
000001 


000122 


002310 


002312 
002310 
002232 
002230 


000071 
002120 


003620 
000104 
002323 
002226 
002230 
002232 
002314 
006072 
900010 


000022 


002116 
004067 


000107 
006125 
000004 
000012 
006703 
000001 
000004 
011634 


a hai 18:09 PAGE 87-18 


ROUTINE TO DROP DRIVE 


9000706 
000071 


_ 
#ORBUF, RZ START OF DRIVE BUFFERS 
Ri ; MASK 


1S THIS THE ORIVE? 
+YES GO DROP IT 


R1 *+NC SHIFT MASK 
#PRPOS+2,R2 +NEXT BUFFER 
1$ +GO BACK 


OPCALL 
6$ 


HOUR, OPHOUR (RY) > TIME AT WHICH IT WAS DROPPED 
MINUTE, DPMINCR4) + HOUR/MINUTE 

3$ + 1F MINUTE 0, 

DPMINCRY) +MAKE 1. 

R1, ORUT >CLEAR THE DRIVE FROM BIT MAP 
#FMT7, 8TIME, HOUR, MINUTE, SECOND, #MRLCS, DCS(R4), #ORNM 


* #ORNM, - (SP) 


DCS(R4Y), - (SP) 
#MRLCS, -(SP) 
SECOND, - (SP) 
MINUTE, - (SP) 
HOUR, - (SP) 
#TIME, -(SP) 
#10, - (SP) 
SP.RO 

CSOPNTF 

#22, SP 
SFMT7A, <B. DRSEL4+1°6R4)>. ADROP. WHY 
WHY, - (SP) 
#DROP, - (SP) 
-(SP) 
DRSEL+1(R4), (SP) 
#FMT7A, - (SP) 
#4,-(SP) 

SP, RO 

CSPNTF 

#12, SP 

ar MTSt 
RFMTS1,-(SP? 


PC, REPORT 
(SP)+,R3 


SEQ 0079 





GUTERR 


DZRLEA. 


4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 

(3) 

(3) 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 


Pil 


MACY11 30(1046) 
14-NOV-77 


020416 
020420 


020422 


020424 
020430 
020432 
020434 
0204 34 
020440 
020442 
020446 
020454 
020460 
020466 
020472 
020500 
020506 
020510 
020514 
020516 
020520 


020524 
020530 
020534 
020540 
020542 
020544 


020546 
020550 
020550 
020552 
020554 
020556~ 
020560 
020564 


020566 
020570 
020574 
020600 
020606 
020612 
020614 
020620 
020622 
020624 


012602 
012601 


000205 


005737 
001001 
000205 


012700 
104041 
017402 
016437 
005437 
013737 
005037 
013737 
012737 
012201 
005337 
001516 
005301 
012237 


012700 
012703 
022037 
001412 
005303 
001373 


24242 


104463 
000264 
003420 
005156 
004537 
000205 


005301 
013703 
005337 
012737 
005737 
001457 
005737 
001454 
005701 
001416 


1 


007504 


000340 


000110 
000042 
002164 
007506 
002160 
007504 
000176 


002164 


002172 


024224 
900010 
002172 


022514 


002172 
002164 
000020 
002164 


06-DEC-77 
4: 04 


002164 
002166 


002170 
002162 


002174 


18:09 PAGE 87-19 


ROUTINE TO DROP ORIVE 


MOV (SP)+,R2 +RESTORE REGISTERS 
MOV (SP)+,R1 
RTS RS 


.SBTTL ROUTINE TO CHECK DATA 
ROUTINE TO CHECK DATA ON READ 


CKDATA: TST CMRD ;D0 WE WANT TO CHECK ANY? 
BNE 975 *+YES CONTINUE 
RTS RS +NO, EXIT 
975: SETPRI #340 
MOV #340, RO 
EMT CSSPRI 
MOV OBBACRY), RZ >BUFFER START 
MOV BNP(R4Y), TEMP1 ;WORDS READ IN 
NEG TEMP 1 *>MAKE POSITIVE 
MOV DELMT, TEMP2 7# ERRORS TO BE PRINTED 
CLR DECNT + INIT ERROR COUNT 
MOV CMRD. TEMPS 7# WORDS TO BE COMPARED 
96$ MOV #126. , TEMPO +126 WORDS 
MOV (R2)+,R1 ;NON-ZERO WORDS 
DEC TEMP 1 
BEQ CEND 
DEC R1 
MoV (R2)+, TEMPY PATTERN ADDRESS 


>MAKE SURE PATTERN ADDRESS |S LEGAL 
MoV #PATLST.RO 


/GET LIST OF PATTERNS 


MOV #8. ,R3 ONLY EIGHT 
98$ CMP (RO)+, TEMPY ;FOUND IT YET 
BEQ 995 > YES, CONTINUE 
DEC R3 *;NO, EXHAUST LIST YET 
BNE 98$ >NG, GO BACK 
CMP -(R2),-(R2) 
ERRHRD 180. ,NOREV.ERPIS 
TRAP TSERCODE 
.WORD 180 
. WORD NOREV 
.WORD = ERR43 
JSR RS, STOMP 
RTS R5 
995: DEC Ri > ACCOUNT FOR PATTERN ADDRESS 
MoV TEMPY., R3 GET ADDRESS 
DEC TEMP 1 ACCOUNT ONCE AGAIN 
MOV #16. , TEMPS +16 ENTRIES TO PATTERN 
1S. TST TEMP 1 ANY WORDS READIN LEFT? 
BEQ CEND NO, GO TO END . 
TST TEMPS ;HAVE WE EXHAUSTED COMPARE LIMIT? 
BEQ CEND > YES GO TO END 
TST R1 ;WE CHECKING PATTERN OR ZEPO FILL? 
BEQ 3$ > ZERO FILL SKIP 


SEQ 0080 


ao 




















OUTERR 
DZRLEA 


MACY11 30(1046) 
14-NOV-77 


PL 


020626 
020630 
020634 
020636 
020642 
020650 
020654 
020660 
020662 
020666 
020672 
020674 
020700 
020704 
020710 


020712 
020712 


020720 
020722 


020726 
020732 
020734 
020736 
020742 


005301 
005737 
001005 
013703 
012737 
012337 
005337 
000402 
005037 
023712 
001415 
005237 
O0&264 
005737 
001406 


104463 
000264 
003024 
004650 
005337 


| 


002174 
002172 
000020 
002216 
002174 


002216 
002216 


002160 


000074 
002166 


002166 
OO2164 


QOlie2 


06-DEC-77 
4: O4 


002174 


18:09 PAGE 87-20 


ROUTINE TO CHECK DATA 


38: 
4S: 


ERRHRD 
TRAP 


Ri 

TEMPS 

23 
TEMPY, RZ 
#16. , TEMPS 


(R3)+, GODAT 
TEMPS 
4$ 


GDDAT 
GDDAT, (R2) 
5$ 

DECNT 
DATCER(RY) 
TEMP2 

5$ 


180. ,MOCER, ERRS 
TSERCODE 


; PATTERN 

; WITHIN PATTERN 
> YES SKIP 

;NO, START OVER 
+16 ENTRIES 
;GET PATTERN 
;DOWN COUNT 


+ZERO FILL 

+ CORRECT DATA 
+YES YES NEXT 
DATA ERROR 


;DO WE WANT TO PRINT IT 
NO, SKIP 


; ACCOUNT FOR PRINT 
;WORDS READ IN 
:NEXT WORD 


SEQ ie 














OUTERR alae ete O6-DEC-77 18:09 PAGE 88 
DZPLEA. Pi 14-NOV-77 14: 04 ROUTINE TO CHECK DATA SEQ 0082 


5038 020744 005337 002170 DEC TEMPS ;WORDS TO CHECK 
cok 020750 000716 BR 1$ 
4 
5041 020752 005737 002160 CEND: TST DECNT _ +DO WE WANT TO PRINT SUMMARY 


S042 020756 001406 BEQ 1$ +NO- EXIT 
5043 


* | 
ee) 


an 


GUTERR 


DZPLEA. 


5045 
5046 


MACY11 3001046) 


Pil 


020760 
020764 
020764 
020766 
020770 
020772 


020774 


020776 
021000 
021002 
021006 
021006 
021012 
021014 
021022 
021024 
021026 


021030 
021030 
021032 
021034 
021036 


021040 
021042 
021044 


021046 
021052 
021060 
021062 
021066 
021074 
021102 
021110 
021116 
021122 
021130 
021132 


06-DEC-77 


14-NOV-77 14: 04 


005464 


104463 
009276 
003024 
004552 


000205 


010046 
010146 
012701 


012700 
104027 
03277 
001006 
00530! 
001367 


104462 
001752 
002450 
005150 


012601 
012600 
00uz05 


016403 
012763 
000405 
016403 
012763 
012763 
056463 
042763 
004537 
022763 
001402 
016301 


000042 


003750 
000002 
p00200 


000104 
000003 


000104 
000013 
000204 
000106 
000200 
020776 
000013 


000006 


nooooy 


000004 
000000 
000006 
000000 


000004 


18:09 PAGE 


89 
ROUTINE TO CHECK DATA 


NEG BNP ;MAKE POSITIVE WORD COUNT 
ERRHRD 190. RNOCER. ERR6 ; DATA ERROR SUMMARY 
TRAP TSERCODE 


.WORD 190 

.WORD MOCER 

.WORD ERRE 
1$: RTS RS 


.SBTTL ROUTINE TO WAIT FOR CONTROLLER READY 


; ROUTINE TO WAIT FOR CONTROLLER READY UNDER FLAG 
;MODE. USED IN INITIALIZE PORTION OF PROGRAN |. E. 
;GETTING BAD SECTOR FILE. WRITING PACK INITIALLY 


WTRDY: MOV RO, -(SP) > SAVE REGISTERS 

MOV Ri,-(SP) 

MOV #1000. .R1 ;WAIT A WHILE 
1$: WAITUS #2 

MOV #2.-R0 

ENT CSWTU 

BIT BCROY, @DCS(R4) <=READY SET? 

BNE 28 7 YES, EXIT 

DEC R1 > TIMED OUT? 

BNE 1$ NO GO BACK 


EPROF 1002. ,NOCRDY,ERRI2 
E 


a MOV (SP)+.P1 >RESTOPE PEGISTERS 
mov CSP 1+. R0 
RTS RS 


-SBTTL GET STATUS/DRIVE RESET POUTINE 


:ROUTINE TO ISSUE DRIVE RESET 
-ALSO GET STATUS. R1 HAS STATUS IF GS 
>USES R3, DOES NOT SAVE IT 


GETOST: MOV DCS(R4),R3 
MoV #GSBIT.DACRS) 
BR CSTUFF 
ISORST: MOV DCS(RY). RI 
MOV RDRST, DACR3) 
CSTUFF: MOV #CROY'GSTAT.CS‘R2) 
BIS DRSEL(R4Y). CSIR?! 
BIC aCRDY,CS(R3) 


JSR RS, WTRDY 

CMP #ORST. DARI) 
BEQ 1$ 

MoV MPiRT). RI 


SEQ 0083 


[oe ie 












































GUTERR 
OZRLEA 


PL 
021136 


021140 
021142 
021144 


021146 
021152 
021156 
021162 
021164 
021166 
021170 
621172 
021176 
021200 
021204 
021210 
021212 
021216 
021222 
021226 
021230 
021232 
021234 


021236 
021240 
021242 
021244 
021246 
021252 
021252 
021256 
021262 
021266 
021270 
021272 
021276 


MACY11 3001046) O6-DEC-77 18:09 PAGE 89-1 


14-NOV-77 14: 04 


000205 


010146 
010246 
010346 


013703 
013701 
012702 
00€303 
006101 
005202 
001374 
063703 
005501 
063701 
062703 
coss01 
062701 
010337 
010137 
012603 
012602 
012601 
000205 


01004 
010146 
010246 
010346 
016446 


012746 
012746 
012746 
010600 
104017 
062706 


002126 
002124 
177771 


002124 
001C57 
047401 


002124 
N0212e 


000110 
004171 
006676 
000002 


N0codte 


G 7? 
GET STATUS/DRIVE RESET ROUTINE 
1$: RTS RS 


-SBITL ROUTINE TO GENERATE A RANDOM NUMBER 
RAND: MOV R1,-(SP) 

MoU R2. -(SP) 

Mov R3, -(SP) 


MOV LONUM, R3 


MOV HINUM, R1 

MOV #-7,R2 
18: ASL RZ 

ROL R1 

INC R2 

BNE 1$ 

ADD LONUM, R3 

ADC Ri 

ADD: HINUM, R141 

ADD #1057,R3 

ADC Ri 

ADD #47401.R1 

MO’ R3.4H1NUM 

MoV Ri LONUM - 

Noy (SF)4.R3 

Mow (SP)4+,R2 

Mow (SP)+.R1 

RTS RS 


SBTTL ROUTINE TO WRITE PACKS INITIALLY 


ROUTINE TO WRITE PACK WITH PATTERN, ALL TRACKS WILL BE 
-WRITTEN (EXCEPT BAD SECTOR TRACK) 

-FORMAT 1S # OF WORDS (WORD 1). PATTERN ADDRESS ‘WORD 2! 
>PATTERN (WORDS 3 - 128) 

;WE WILL ATTEMPT TO WRITE MULTIPLE SECTORS AT A TIME 

> (MINIMUM 10 SECTORS) IF AN ERROR OCCURS WE WILL THEN 
>WRITE INDIVIDUAL SECTORS FOR THAT TRACK. WE OO WRITES. 
/PEADS AND INCORE COMPARISONS TO VERIFY 


“CALL JSR RS. WRPACK 


WREACK: MOV RO, -<(SP) > SAVE REGISTERS 
MOV Ri, -(SP) 
MoV R2.-(SP) 
MOV RT, <tSPh 


MoV BBACRY), -« SP) 
PRINTF #FMNT18, #MSHRPK 


MOV @MSWRPK,. -(SP) 
MoV SFMTIS.-CSP) 
MOV SP.RO 
EMT CSPNTF 

#6 


ADC SP 
PRINTF @FMT17. @MPLCS.OCS'P4'.SDPNM, B.DRSEL +1 64: 





SEQ 0084 | 
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021276 
021300 
021304 
021310 
021314 
021320 
021324 
021230 
021332 
021334 
021340 


021406 


021410 
021412 
021420 
021426 
021432 
021436 
O21444 
021450 
021456 
021464 
021470 
021474 
021500 
021502 
021506 


021510 
021516 
021522 
021526 
021532 


06-DEC-77 


14-NOV-77 14: 04 


005046 


004537 


005037 
005001 
022701 
001014 
005737 
001411 
004537 
012664 
012603 
012602 
012601 
012600 
000205 


005002 
012764 
012764 
004537 
010164 
053764 
050264 
012764 
012764 
004537 
004537 
005774 
100003 
004537 
000421 


012764 
004537 
004537 
005774 
100763 


000107 
003620 
000104 
002323 
005647 
000005 


000014 
022374 


002164 
077600 
002164 


QO22374 
000110 


002252 
175400 
017154 
000040 
002164 
OC0040 
002252 
000012 
014042 
020776 
000104 


021062 


000002 
014042 
020776 
000104 


000110 
000042 


000040 


000116 
900044 


900044 


FT 
ROUTINE TO WRITE PACKS INITIALLY 


18:09 PAGE 89-2 


CLR - (SP) 
BISB DRSEL+1(R4), (SP? 
MOV #ORNM, - (SP) 
MOV OCS(R4), -(SP) 
MOV #MRLCS, - (SP) 
MOV #FMNT17,-(SP) 
MOV SP, RO 
EMT CSPNTF 
ADD #14, SP 
RS, HOHOME 


SEQ 0085 


*>HERCS HOME 


[NOW ACTUALLY WRITE DATA OUT ON PACK. WILL NOT WRITE LAST 
; TR 


ACK 

CLR TEMP 1 
CLR R1 

CONWR: CMP #’7600.R1 
BNE STWRT 
TST TEMP 1 
BEQ STWRT 

ENDWR: JSR R5. HDHUME 
nov USF )+, BBALPY: 
MoV (SP)+,R3 
MoV (SP 14,R2 
MOV (SP)4+,R1 
nou (SP )+,R0 
RTS os 


; TEMP 1=HEAD 

>R1=CYL 

> CYL=255? 

>;NO GO WRITE TRACK 

;YES. CHECK IF HEAD = 1? 
>HEAD = 0 GO WRITE 
;HEADS HOME 


>END EXIT . 


-THIS PORTION WILL WRITE THE PACK USING MULTIPLE SECTORS IF A 


SERROP OCCURS WE WILL GO TO 


STWRT: CLR R2 
MO" #BUF1,BBACRSY) - 
Mow #-1280. .BMF(RY) 
JSR RS. WRBUF 

2018: MOV R1,BDACRY) 
BIS TEMP1. BDA RY) 
BIS R2,BDACRY) 
MoV #BUF1,BBACRY: 
MoV #WRITE, FUNC CRY) 
JSP RS. LOFUNC 
JSR RS. WTROY 
TST @DCS(RY) 
BPL 2035 

2058: JSR RS. (SORST 
BR 25% 

2038 MOV #WRCHK. FUNC «R4) 
JSR RS. LDOFUNC 
JSR RS, WTRDY 
TST @DCSiR4Y) 
BMI 2058 


2$ AND INDIVIDUAL SECTORS 


> INITIAL SECTOR 0 
/BUFFER START 
710 SECTORS 
>WRITE BUFFER 
SET UP SECTOR 


INTO MEMORY 


:SET UP TO WRITE 
WRITE 


/WAIT FOR PEAL 
ERROR 


> ERROR 


VES GO OO SECTORS tNOih CuRLLY 


ie 


, me. 
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.Pil 14-NOV-77 14: O4 ROUTINE TO WRITE PACKS INITIALLY SEQ 0086 | 

021534 062702 000012 ADD #10. ,R2 NEXT GROUP 

021540 022702 000050 CMP #40. ,R2 ; DONE? 

021544 001332 : BNE 201% +NO, GO BACK 

021546 000137 022050 JMP 952% + YES NEXT TRACK 
> 1F AN ERROR OCCURS THEN WE COME HERE AND DO THE TRACK SECTOR | 
>BY SECTOR. : 

021552 005002 2$: CLR R2 +R2 = SECTOR | 

021554 012764 177600 000042 MOV #-128.,BMP(R4Y) LOAD WORD COUNT 

021562 010164 O00040 35: MOV R1,BDACRY) ; SETUP DISK ADDRESS 

021566 053764 O02t64 000040 BIS TEMP 1, BDACRY) 

021574 050264 000040 Bis R2,BDACRY) | 

021600 012764 002252 000110 MoV #BUF 1, BBACRY) 

021606 004537 017154 JSR RS, WRBUF ;WEITE A BUFFER | 

021612 005037 002114 91: CLR RWCNT ; > CLEAR RETRYS OUT 

021616 005037 002160 985: CLR DECNT ; 

021622 ©12764 000012 O00044 965%: MOV @WRITE.FUNCCRY) ;WRITE FUNCTION 

021630 004537 014042 JSR RS, LDF UNC 

021634 004537 020776 JSR RS, WTRDY ;WAIT FOR WRITE TO FINISH 

021640 005774 000104 TST = @DCSC(R4) ERROR ON WRITE? 

021644 100023 BPL 85$ :NO, GO READ 

021646 004537 021062 JSR RS, ISORST 

021652 016437 OO00040 902156 MoV BOACR4Y),CHKSEC ; YES. CHECK IF SECTOR !S IN 

021660 004537 023640 JSR RS, CKBDSC >BAD SECTOR FILE 

021664 005737 002154 TST HDRF ND 7 IF SET. IT WAS 

021670 001050 BNE 95$ : YES GO TO NEXT SECTOR 

021672 005237 002160 INC DECNT +N, GIVE IT ONE MORE TRY 

021676 023727 002160 900002 CMP DECNT, #2. > 1T MAY HAVE BEEN NOISE 

021704 001346 BNE 96$ 

021706 004537 022134 JSR RS, INBAD 

621712 000437 BR 9538 

021714 005037 002112 85$: CLR RECNT : >CLEAP RETRY COUNT 

021720 012764 000002 900044 30%: MOV @WRCHK, FUNCERY? ; 

021726 004537 014042 JSR RS, LDF UNC 

021732 004537 020776 JSR RS. WTRDY 

021736 “005774 000104 TST aD0CS(R4) >ERROR ON READ 

021742 100023 BPL 81% >NO, GO COMPARE 

021744 (04537 021062 JSR RS, ISDRST 

021750 016437 900040 0072156 MoV BDA(R4Y),CHKSEC -CHECK IF SECTOR IS 

021756 004537 023640 JSR RS, CKBDSC >A KNOWN BAD SECTOR 

021762 005737 002154 TST HORF ND :1T WAS THEN 


021766 001011 BNE 95$ >GO TO NEXT SECTOP 





J? 
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DZRLEA P11 14-NOV-77 14: 04 ROUTINE TO WRITE PACKS INITIALLY SEQ 0087 | 
52423 021770 005237 002112 INC RECNT ;GIVE 1T ANOTHER CHANCE | 
5244 021774 023727 002112 900002 CMP RECNT, #2. 
S245 022002 001346 BNE 80% 

24 . ! 
5247 022004 004537 022134 JSR RS. INBAD 
5248 022010 o00400 BR 955 
5249 ; 

5250 022012 815: | 
5251 . | 
5252 022012 062702 000012 955. ADD #10. ,R2 - |NEXT SECTOR (OFFSET BY 10) 

5253 022016 020227 000047 CMP R2, #39. -;DONE WITH TRACK? 

5254 022022 003002 BGT 9515 ;YES NEXT TRACK 

5255 022024 000137 021562 JMP 35 ;NO GO BACK FOR NEXT SECTOR 

5256 022030 9815: 
5257 022030 005202 INC R2 ;NEXT SECTOR 

5258 022032 162702 000050 SUB #40. ,R2 ;DONE WITH TRACK? 
5259 022036 020227 000012 CMP R2, #10 ; 

5260 022042 001402 BEG 9625 > YES 

5261 022044 000137 021562 JMP 33 ;NO 

5262 022050 9525 

5263 

5264 022050 005727 002164 TST TEMP 1 ; WHICH SURFACE? 

5266 022054 001420 BEQ 55 ;TOP (0), BRANCH 

5267 022056 005037 002164 CLR TENP 1 :BOTTOM. SWITCH~TO TOP WITH 

5268 022062 062701 000200 ADD #260. R1 

5269 022066 012764 000205 o00040 MoV #205, BDA(R4) :SEEK. GC IN ALSO 

5270 022074 012764 O00006 fcn0s4 46. MoV SEEK, FUNC(RY) ;GO SEEF 

5271 622102 004537? O14042 JSR RS, LOF UNC . ; 

$272 022106 004537 020776 JSR PS, WTRDY 

S27 022112 000137 021352 JMP CONWR 

5276 022116 012737 000100 02164 5%. may #HEAD. TEMP 1 . /Wat TOP. MAKE SaTTOM 

6277 022124 012764 900021 900040 Ma #21, BDA(RY) 

6278 022132 o0u760 BR 4s 

5279 

5280 

5281 022134 016337 000000 002234 INBAD: Mov CSIR). ECS 

6282 022142 016337 000002 002236 MOV BA(R3),E BA 

5283 C22150 016337 o000004 002240 MoV DA(R3),£.0A 

5284 022156 016337 000006 002242 Mov MP(R3),€. MP | 
5285 022164 016337 000006 902244 MOV MP(R3),€. MP4 

6286 022172 016337 O00N006 002246 MoV -MP(R3),€. MP2 

5287 022200 ERRHRD 199.,NWRTS.ERR13 

(3) 022200 104463 . TRAP TSERCODE 
(5) 022202 000307 WORD 139 

(5) 022204 002525 WORD  NWRTS 

(5) 022206 005156 WORD = ERRI3 
5288 022210 005264 000012 INC ERRCNT(RY) 

6289 022214 005737 007532 TST T. ORP SARE WE CCUNTING ERRORS 
5290 022220 001413 BEQ 23 ;NO | 
5291 022222 026437 O00012 007472 CMP ERRCNT(R4).ERLMT; PAST IT 

5292 022230 103407 BLO 25 > NO 

5293 022232 012737 003111 02116 MoV SERLMNTM. WHY 


5294 022240 004537 020144 JSR RS, DPDRY 





kK ? " 
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5295 022244 012705 021366 MoV RENDWR, RS | 
5297 022250 000205 25: RTS RS 
5298 “SBTTL ROUTINE FOR SYSTEM CLOCK 
a 
5300 ;ROUTINE TO READ SYSTEM CLOCK 
5301 [USES 'REGTIM' FROM DIAGNOSTIC SUPERVISOR 
5303 022252 005737 002250 GETSYS: TST SYSCLK ;D0 WE HAVE A CLOCK 
5204 022256 001002 BNE us ;YES, GO SERVICE IT 
5305 022260 BRENK :NO. CALL SUPER FOR C 
(3) 022260 104022 EMT CSBRK 
5306 022262 000205 RTS RS SEXIT 
5307 022264 us: REQTIN RO ;GET. PRESENT TIME 
(3) 022264 104045 EMT CSREQTIM 
5308 022266 020037 002224 1: CMP RO. LSTTIM ;HAS 1T MOVED 
5309 022272 001437 BEQ 35 [NO MOVEMENT SINCE LAST CALL 
5310 022274 013701 002224 MoV LSTTIM. RI [CALCULATE DIFFERENCE 
5311 022300 010037 002224 - MoV RO, LSTTIM ;AND FIX ACCORDINGLY - 
5312 022304 160100 SUB R1,RO 
5313 022306 060037 002226 25: ADD RO. SECOND ; BUMP SECONDS 
5314 022312 022737 000074 002226 CMP #60. , SECOND ; SECONDS OVERFLOW 
5315 022320 003024 BGT 35 
5316 022322 162737 000074 002226 75: SUB #69. , SECOND 
5317 022330 005237 062222 INC INTERVAL : TIME BETWEEN REPORTS 
5318 022334 005237 002230 INC MINUTE :BUMP MINUTES 
5319 022340 022737 000074 002226 CMP #60. , SECOND 
5320 022346 002765 BLT 75 
5321 022350 022737 000074 002236 CMP #60. . MINUTE 
5322 022356 003005 BGT 35 
5323 022360 005237 002232 INC HOUR 
5324 022364 162737 000074 002230 SUB #60. . MINUTE 
5325 022372 000205 35. RTS RE 
6 
5327 -SBTTL HEADS HOME ROUTINE 
532 : 
5329 ;ROUTINE TO BRING HEADS OVER TRACK O 
5330 
5331 022374 010046 HOHOME: MOV RO. -(SP) ;SAVE RO 
5332 022376 012764 000010 o00044 MoV #RDHDR, FUNC(RY) :REAO HEADER 
5333 022404 004537 014042 JSR RS, LOFUNC GO DO IT. 
5334 022410 004537 020776 JSR RS, WTRDY 
5335 
5336 022414 016300 000006 MoV MP(R3).RO :GET HEADER 
5337 022420 042700 000177 BIC #177,-RO0 SONLY CYLINDER 
5338 022424 010064 O00040 Mov RO, BDACRY) ;MOVE IT TO BUFFERED DA 
5339 022430 052764 GO00001 oD0040 BIS #i1K, BOACRY) SET MARKER 
5340 022436 012764 000006 O00044 Nov #SEEK,FUNCCR4) LOAD SEEK 
5341 022444 004537 014042 JSR RS, LDF UNC ; SEEK! 
5342 022450 004537 020776 JSR RS, WTROY WAIT 
5343 022454 O16464 000120 00050 Mov PRPOS(RY), LSTHDR(RY ) 
5344 022462 005064 000120 CLR PRPOS(RY) SET BUFFER TO HOME 
5345 022466 012600 MOV (SP) +, RO 
5346 022470 006265 RTS RS 
534 
5348 SBTTL RANDOM WC AND DA ROUTINE 





—. 


ae, 


GUTERR 
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epee 30( 1046) 
14-NOV-77 


022472 


022536 
022540 
022544 
022546 
022550 


022552 
022556 
022560 
022566 
022574 


022576 
022576 
022602 
022606 
022612 
022616 
022622 
022624 
022626 
022632 


022640 
022646 
022650 


022656 
022662 
022664 
022670 
022674 
022700 


023737 
001003 
013702 
000421 
004537 
013702 
042702 
023702 
103003 
006202 
005202 
C00770 
020237 
103002 
006102 
000763 


005737 
001003 
013737 
023737 
103021 


013746 
013746 
012746 


012746. 


012746 
010600 
104017 
062706 
013737 


023737 
003006 
013737 


013703 
000421 
004537 
013703 
042703 
023703 


06-DEC-77 
14: O04 


007524 
007524 


021140 
002126 
177700 
007524 


007526 


007560 


002256 
002256 


002256 
007512 
003242 
006446 
000004 


000012 
002256 
007512 
007512 
007512 
021140 
002126 


160000 
007512 


007526 


007512 
007512 


007512 
007534 
007534 


18:09 PAGE 89-6 
RANDOM WC AND DA ROUTINE SEQ 0089 


;ROUTINE TO GET RANDOM SECTOR AND WORD COUNT FOR R/W TRANSFER. 
+SECTOR IS CHOSEN BETWEEN MIN/MAX LIMITS. WORD COUNT IS BETWEEN 
+MIN/MAX WORD COUNT. WORD COUNT WILL BE ADJUSTED NOT TO CAUSE 

+ TRACK OVERFLOW IF HIGH SECTORS ARE CHOSEN... 

+R4Y HAS BUFFER OF DRIVE WE'RE WORKING WITH 

- EXIT - BMPCRY) HAS WORD COUNT 


- BOACRY) HAS DISK ADDRESS 
GHCDA. CMP T. MXS, T. MNS +MIN MAX SECTORS EQUAL 
BNE 99% ;NO, CALCULATE ONE 
Mov T. MXS,R2 +LOAC SECTOR . 
BR 5% GO GET WC 
995: JSR RS, RAND ;GET RANDOM # FOR SECTOR 
MoV LONUM, RZ 
1$: BIC #177700.R2 70-77 ONL 
CMP T. MXS,R2 -R2 LOWER THAN MAX 
BHIS 3$ BRANCH IF YES 
ASR R2 HALF IT 
INC R2 > INC SO NOT 0 
BR 1$ 
3$: CMP R2.T. MNS . ;MIN OKAY 
BHIS 5$ 
ROL R2 
BR 1$ 


NOW GET WORD COUNT 


5S. TST T. STIP 
BNE 953 
MoV MAXWC. T. MXB 
96%: CMP MAXWC, T. MXB 
BHIS 979 
PRINTF #FMT130. SOVER. T..MXB. MAMHC 
MoV MAXWC, - (SP) 
MoV T. MXB, - (SP) 
MOV ROVER, - (SP) 
MoV #FMT13D,-(SP) 
MoV #4,-(SP) 
MOV SP.RO 


ADD #12, SP 


MOV MAXHWC. T. MXB 
975: CMP T. MXB. T. MNB 7>MIN MA® EQUAL 
BGT 6$ 
MOV T. MXB. T. MNB 
MoV T. MXB.R3 »YES SET WC 
BR 9$ 
oS. JSF RS, RAND >GET RANDOM WORD COUNT 
MoV LONUM, RZ 
79. Bic #160000. P3 »MAXH Et! 
CMP T. MXB. RS 


| 


ears 
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DZRLEA. P11 14-NOV-77 14: 04 RANDOM WC AND DA ROUTINE SEQ 0090 
5397 022704 103003 BHIS 8S 
5398 022706 006203 ASR R3 
5399 022710 005203 INC R3 
5400 022712 000770 BR 7$ 
5401 022714 020337 007534 85: CMP R3, T. MNB 
6402 022720 103002 . BHIS 95 
5403 022722 006103 ROL R3 
S404 022724 000763 BR 7§ 
4 
5406 ;NOW WE HAVE SECTOR AND WORD COUNT, CHECK THAT WORD COUNT WILL FIT ON SECTOR 
5407 IF NOT LOWER SECTOR START 
5408 
5409 
S410 022726 012701 o00050 95: Mov #40..R1 ; SETUP FOR FOURTY SECTORS 
S411 022732 005403 NEG R3 ;MAKE WORD COUNT NEGATIVE 
5412 022734 010364 000042 MoV R3, BMP CRY) ;LOAD WORD COUNT 
5413 022740 005301 11: DEC Ri ;DOWN COUNT MINIMUM START SECT NEEDED 
5414 022742 062703 000200 ADD #128. .R3 ;ONE SECTOR'S WORTH 
5415 022746 100774 BMI 115 ;STILL NEED ANOTHER SECTOR 
5416 022750 020201 CMP R2,R1 ;DID RANDOM SECTOR SUFFICE 
5417 022752 101401 BLOS =: 128 ;BRANCH IF SUFFICED 
5418 022754 010102 MOV. —- RI RZ ;NO, THEN MAKE IT FIT 
5419 022756 O164e4 000120 000040 128: Mov PRPOS(R4), BOACRY ) 
5420 022764 042764 000077 oD0040 BIC #77, BDACRY) 
5421 022772 050264 00040 BIS R2, BDACRY) 
5422 022776 000205 RTS RS 
5423 
5424 
5425 
5426 
5427 
5428 
5429 
5430 
5431 
5432 
5433 
5434 
5435 
5436 
5437 : 
5438 SBTTL ROUTINE TO DUMP BUFFER ON DCK 
5439 
5440 “ROUTINE TO DUMP BUFFER ON DCK ERROR, THO DUMPS APE POSSIBLE 
5441 ONE WHERE WE CAN COMPARE WHAT IT SHOULD BE AND THE OTHER 
5442 ;WHEN WE CAN'T 
5443 
5444 023000 004737 005214 OMPBUF: JSR PC. LINE! 
5445 
S446 ; 
5447 :CALCULATE THE STARTING BUS ADDRESS FOR THE COMPARE 
S448 
5449 
5450 023004 012737 900200 002300 nov #128. ,DWCNT1 
5451 023012 016400 00040 ) Mov BDALRY), RO GET STARTING BUS ADDRESS 


ae 


N ? 


OUTERR MACY11 30(10%6) O6-DEC-77 18:09 PAGE 89-8 
DZRLEA. Pil 14-NOV-77 14: 04 ROUTINE TO DUMP BUFFER ON DOCK SEQ 0091 

5453 023016 013701 002240 MOV E. DA, R1 ;GET PRESENT DISK AODRESS 
5454 023022 042700 177700 BIC #177700, R0 + SAVE SECTOR BITS 
5455 023026 042701 177700 BIC #177700, R1 ; 
5456 023032 010002 MOV . RO,.RZ SAVE A COPY 
5457 023034 010103 MOV Ri, R3 + SAVE ANOTHER 
5458 023036 160203 SUB R2.R3 +GET DIFF OF SECTORS 
5459 023040 005002 CLR R2 + CALCULATE WORD COUNT 
5460 023042 062702 000200 935: ADD #128. ,R2 ONE SECTORS WORTH 
5461 023046 005303 | DEC R3 + DONE 
5462 023050 001374 BNE 935 : +NO 
5463 023052 016403 000042 MoV BMP(R4),R3 GET WORD COUNT 
5464 023056 005403 NEG R3 +MAKE IT POSITIVE 
5465 023060 020203 CMP R2,R3 +WORKING WITH FULL SECTOR 
5466 023062 003005 BGT 94S +NO, GO CALC PARTIAL SECTOR 
5467 023064 013702 002236 MOV E. BA, RZ PRESENT BUS ADDRESS 
5468 023070 162702 000400 SUB #400,R2 + START OF COMPARE 
5469 023074 000412 BR 96$ +GO COMPARE BUFFER 
5470 023076 160302 94S; SUB R3,R2 GET SECTOR DIFF 
5471 023100 012700 000200 MOV #128. .RO 
5472 023104 160200 SUB R2,R0 
5473 023106 6010037 002300 MOV RO, DWCNT1 
5474 022112 006300 ASL RO 
5475 023114 013702 002236 MOV E. BA, R2 
5476 023120 160002 SUB RO-R2 
5477 023122 965: PRINTB #FIT13, #BUSAD, RZ. #CRLDA. CHKSEC 

(11) 023122 013746 002156 MOV CHKSEC, - (SP) 

(10) 023126 012746 002373 MOV #CRLDA, - (SP) 

(9) 023132 010246 MOV R2, -(SP) 

(8) 023134 012746 003723 MOV #BUSAD, - (SP) 

(7) 023140 012746 006431 MoV #FMT13,-(SP) 

(6) 023144 012746 O00005 MoV #5, -(SP) 

(3) 023150 010600 MoV SP. RO 

(4) 023152 104014 EMT CSPNTB 

(4) 022154 062706 000014 ADD =~=—s #14. SP 
5478 0231600 012700 024324 MoV RPATLST,. RO _  3CHECK PATTERN LIST 
5479 023164 012701 0900010 MOV #8.-R1 
5480 023170 022062 000002 1$: CMP (RO)+, 2(R2) 
5481 023174 001415 BEQ 2$ 
5482 023176 005301 DEC R1 
5483 023200 001373 BNE 1$ 
5484 
5485 023202 38: PRINTB #FMT14, #NOREV 

(8) 023202 012746 003420 _ Mov #NOREV, - (SP) 

(7) 023206 012746 006473 MoV #FMT14, -(SP) 

(6) 023212 012746 000002 MOV #2. - (SP) 

(3) 023216 010600 MoV SP. RO 

(4) 023220 104014 EMT C3PNTB 

(4) 023222 062706 000006 — ADD #6, SP 
~~ 023226 000532 BR STOMP 

4 
5488 023230 021227 000200 2S. CMP (R2), #128 
5489 023234 101362 - BHI 3$ 
5490 023236 005037 002160 CLR DECNT 
et 023242 013701 007554 MoV T.CLT-R1 
549 : 


5493 023246 012237 002162 MoV (R2)+, TEMPO >NONZEPO WORD COUNT 


aan 





OZRLEA. 


Pp 


MACY 11 
11 


023252 
023260 
023264 
023270 
023276 
023304 
023310 
023316 
023322 
023324 
023330 
023334 
023336 
023344 
023350 
023354 
023360 
023362 
023366 
023372 
023376 


023400 
023404 
023406 


023410 


023412 
023412 
023414 
023420 
023424 
023430 
023434 
0272436 
023440 


023444 


023506 
023512 


023514 
023520 
023524 
023524 
023526 


30(1046) 
14-NOV-77 


013737 


001422 


005237 
005701 
001416 
005301 


011246 
013746 
013746 
012746 
012746 
010600 
104014 
062706 


005237 
005722 
023737 
003716 


013746 
013746 
012746 
012746 
010600 
104014 
062706 


000205 


013701 
012703 


011246 
012746 


06-DEC-77 
14: 04 


002162 
002276 
002164 
000002 
000002 
002164 
000020 
002162 


002162 
002174 


000020 
002164 
002216 
002174 


002216 


00227 
002216 


002160 


002216 
002166 
006514 
000004 
000012 
002166 
002300 
002166 
002160 


006214 
000003 


000010 


007554 
600012 


006502 


002276 


002162 
002166 


002174 


002174 


002166 
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ROUTINE TO DUMP BUFFER ON OCK SEQ 0092 


4$: 


5S: 


6S: 
7S: 


8$ 


STOMP: 
1$: 


MOV TEMPO, OWCNT 
WCNT 


D 
MOV (R2)+, TEMP1 
SUB #2, TEMPO 
MOV #2, TEMP2 


+ WORD 
MOV TEMP1,R3 ;PATTERN ADDRESS 


MOV #16... TEMPS +16 ENTRIES 

TST TEMPO + ZERO OR PATTERN 
BEQ 6$ + ZERO BRANCH 

DEC TEMPO 

TST TEMPS ;WITHIN LIST 

BNE 


5% 
MOV #16. , TEMPS 
MOV TEMP1,R3 


MoV (R3)+, GODAT 
DEC TEMPS 

BR 7% 

CLR GDOART 

INC OWCNT 

CMP (RZ), GODAT 
BEQ % 

INC DECNT 

TST Ri 

BEQ &$ 

DEC R1 

PRINTB #FMT14B, TEMP2. GODAT. (R2) 
MoV (R2),-CSP) 


MOV GDDAT, -(SP) 
MoV TEMP2, -(SP) 


MoV #FMTI4B,-(SP) 
MoV #4,-(SP) 

MOV SP,.RO 

EMT CSPNTB 

ADD #12, SP 

INC TEMP2 

TST (R2)+ 

CMP DWCNT1, TEMP2 
BLE 4§ 

PRINTB #FMT9A. DECNT, TEMP2 
MOV TEMP2, -(SP) 
MOV DECNT, -(SP) 
MoV RF MT9A, -CSP) 
MOV #3,- (SP) 

MoV SP.RO 

EMT C3PNTB 

ADD #10, SP 

RTS RS 

MOV T. CLT. @1 


MoV #10. ,R3 
PRINTB #FMTI4A, (RZ) 
MoV (R2),-C(SP) 
MOV #FMTI4A, -CSP) 


ee 


OUTERR 
DZRLEA. 


Pi 


‘pila 30(1046) 


023532 
023536 
023540 
023542 


023614 


023616 
023620 
022624 
023626 
023632 
023634 
023636 


023640 
023644 
023646 
023650 
023652 
023654 
023660 
023664 
023666 
023670 


06-DEC-77 


14-NOV-77 14: 04 


012746 
010600 
104014 
062706 
005722 
005303 
001012 


012746 
012746 
010600 
104014 
062706 
012703 
005337 
001001 
000205 
005301 
001344 
000205 


010446 
012704 
005024 
020427 
001374 
012604 
000205 


005037 
010046 
010146 
010246 
010346 
012700 
016402 
005712 
100411 
023712 


000002 
000006 
006511 
000001 


000004 
000012 
002300 


024752 
026172 


G02154 


000020 
000112 


002156 


18:09 PAGE 89-10 
ROUTINE TO DUMP BUFFER ON DOCK 


is 
oF a] 
Oo 
m 
fan 


C 8 
#2, -(SP) 
0 
2 
#FNTI4C 


#FMTI4C, -(SP) 
#1,-(SP) 


;ROUTINE TO CLEAR ALL DRIVE INFO. USED ON START OR 


>RESTART IF CALLED. 
> INFO BY BITMAP FOLLOWING CALL 


“CALL =sJSSR 
CLEAR: MOV 
MoV 
2$ CLR 
CMP 
BNE 
4S: MoV 
RTS 


RS, CLEAR 


R4,-C(SP) 
#ORBUF.RY 
CR4)+ 

R4, #ENDBUF 


(SP)+,R4 
RS 


CAN BE USED TO CLEAR INDIVIDUAL DRIVE 


> SAVE R 

> GET BUFrER STARTS 

> CLEAR 

>AT END OF _ 
*NO. GO TO 2 
th a CURRENT BUFFER POINTER 
XI 


.SBTTL ROUTINE TO CHECK FOR BAD SECTOR 


>POUTINE TO MATCH BAD SECTOR 


.. BDACRY) 1S SECTOR WE ARE LOOKING 


FOR IN LIST POINTED TO BY BSECPTCRY)...... HOPFND 1S SET IF WE FIND IT 
CKBOSC: CLR HORF ND >CLEAR FLAG 

MoV RO, - (SP) * SAVE RO 

Mov Ri,-<(SP) 7 SAVE R1 

MOV R2,- (SP) *SAVE = R2 

MoV +r ~ (SP) *SAVE R33 

MoV #16.,R0 16 ENTRIES 
1$: MOV BSECPTIRN), R2 ;GET WHERE WE'RE LOOKING 
2s: TST R2) » END 

BMI : us 

CMP CHKSEC, (R2) >HAVE WE GOT A MATCH 


SEQ 0093 






OUTERR 


DZRLEA. 


Pil 


023674 
023676 
023700 
023702 
023704 


023706 
023712 


023724 
023764 
024024 
024064 
024124 
024164 
024224 
024264 


024324 
024326 
024330 
024332 
024334 
024336 
024340 
024 342 


024344 
024346 
024350 
024352 
024354 
024 356 
024360 
024362 
024 364 
024 366 
024370 
024372 
024374 
024376 
024400 
024402 


024404 
024406 


MACY11 30(1046) 





14-NOV-77 14: 04 


001404 
005722 
005300 
001370 
000402 


005237 


012603 
012602 
012601 
012600 
000205 


000020 
000020 
000020 
C00020 
000920 
000020 
000020 
000020 


024344 
024404 
O24444 
024504 
024544 
024604 
024644 
024704 


000000 
000000 
000000 
- 000000 
000000 
000090 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


177777 
177777 


002154 


06-DEC-77 
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D 8 








ROUTINE TO CHECK FOR BAD SECTOR 


34: 
4S: 


HORF ND 


(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,R0 
RS 


; THEN GO SET INDICATOR, ELSE 


;SET FLAG FOUND 


*>BUFFER TO STORE BAD SECTOR LISTS 


BSECO: 
BSEC1: 
BSEC2: 
BSEC3: 
BSEC4: 
BSECS: 
BSEC6: 
BSEC?: 


. BLKW 
. BLKW 
. BLKW 
. BLKW 
. BLKW 
. BLKW 
. BLKW 
. BLKW 


:LIST OF PATTERNS USED IN WRITING 


PATLST- PATO 


PATO: 


PATI 


PATI 


WORD 


_ WORD 
WORD 


Ood00000 00000000 





SEQ 0094 


i 
a en 





OUTERR MACY11 
DZRLEA. Pil 


S636 024410 
5637 024412 
5638 024414 
5639 024416 
5640 024420 
5641 024422 
5642 024424 
5643 024426 
5644 024430 
5645 024432 
Se46 024434 
S64? 024436 
S643 024440 
5649 024442 


5e51 024444 
5e52 024446 
5653 024450 
5654 024452 
5655 024454 
5656 024456 
5657 024460 
5658 024462 
5659 024464 
5660 024466 
5661 024470 
5662 024472 
5663 024474 
5664 024476 
5665 024500 
5666 024502 


5668 024504 
5669 024506 
5670 024510 
5671 024512 
5672 024514 
5673 024516 
5074 024520 
5675 024522 
5676 024524 
5677 024526 
5678 024530 
5679 024532 
5680 024534 
5681 024536 
5682 024540 
5683 024542 


. 5685 024544 
5686 024546 
5687 024550 
5688 024552 
5689 024554 
5690 024556 
5691 024560 


3011046) O6-DEC-77 
14-NOV-77 14: 04 


177777 
052525 
052525 
052525 
177777 
177777 
052525 
052525 
127277, 
052525 
177252 
177252 
172765 
172765 


000000 


000000 
177777 


025252 
052525 
052525 
125252 
125252 
125252 
052525 
052525 
125252 
125252 
052525 
125252 
052525 
125252 
652525 
125252 


155555 
133333 
066666 
155555 
133333 
066666 
155555 


18: 09. PAGE 89- 


12 
ROUTINE TO CHECK FOR BAD SECTOR 


PAT2: 


WORD 


WORD 


. WORD 
. WORD 


PATS. 


. WORD 


. WORD 
. WORD 
_ WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


WORD 


. WORD 
. WORD 
. WORD 


PARTY 


. WORD 


. WORD 
. WORD 
. WORD 
_ WORD 
_ WORD 
_ WORD 


177777 


125252 


155555 
133333 
066666 
155555 
133333 
066666 
165555 


—E 8 


OUTERR 


DZRLEA. 


Pi 


a 


024562 
024564 
024566 
024570 
024572 
024574 
024576 
024600 
024602 


024604 
024606 
024610 


.024612 


O24€°4 
024616 


024640 
024642 


024644 
024646 


> 024 702 


024704 
024706 
024710 
024712 
024714 
024716 
024720 
024722 
024724 
024726 
024730 
024732 


30(1046) O6-DEC-77 
14-NOV-77 14: 04 


133333 
066666 
155555 
133333 
066666 
155555 
133333 
066666 
155555 


121105 
150442 
064221 
132110 
055044 
026422 


177777 
177777 
177777 


D64551 


18:09 PAGE 89-13 


ROUTINE TO CHECK FOR BAD SECTOR 


PATS: 


PATE: 


PAT?: 


133333 


155555 


121105 
150442 
64221 


177777 
177777 
177777 
177777 
177777 
17777? 
177777 
177777 
177777 
177777 


Yo 


SEQ 0096 


; 
ed 


G 8 


QUTERR MACY11 30(1046) O6-DEC-77 18:09 PAGE 89-14 
DIRLEA. P11. «= 14-NOV-77 14: 04 ROUTINE TO CHECK FOR BAD SECTOR SEQ 0097 

5748 024734 132264 WORD 132264 
5749 024736 055132 WORD 55132 | 
6750 024740 026455 “WORD 26455 
751 024742 113226 “WORD 113226 | 
5753 | 
5754 | 
5755 O24744 o0c0240 ENDOFPROGRAM: NOP 
5756 O24746 ENDTST 

(3) O24746 L10022: 

(3) 924746 104001 EMT CSETST 
5757 024750 000000 HALT | 

7&8 | 
ae -SBTTL DRIVE INFORMATION BUFFERS 

760 
S761 DRIVE INFORMATION BUFFER | 
5762 | 
5763 | 
5764 AveT. O69 H 
5765 3 
5766 024752 ORBUF: 
5811 

(1) 024752 oo0000 SKCNT ; SEEK OPERATION COUNT 

(1) 024754 900002 PXFR1 ;PEAD OPERATION COUNT (BITS) LOW ORDER 

(1) 024756 900004 RXFR2 ; HIGH ORDER 

(1) 024760 00006 WXFR 1 : WRITE OPERATION COUNT (BITS) LOW ORDER 

(1) 024762 000010 WXFR2 HIGH ORDER 

(14) 024764 000012 ERRCNT TERROR COUNT - HARD 

(1) 024766 oO00014 SF TCNT sERROR COUNT - SOFT 

(1) 024770 o00016 SKECNT : SEEK ERROR COUNT 

(1) 024772 000020 DERCNT :DRIVE ERROR COUNT 

(1) 024774 000022 DCRCER :DATA CRC ERROR COUNT 

(1) 024776 000024 HCRCER sHEADER CRC ERROR COUNT 

(14) 025000 000026 DL TCNT ;DATA LATE ERROR COUNT 

(1) 025002 000030 OP ICNT [OPERATION INCOMPLETE ERROR COUNT 

(1) 025004 000032 HNFERR ;HEADER NOT FOUND ERROR COUNT 

(1) 025006 000034 NXMCNT [NON EXISTANT MEMORY ERROR COUNT 

(1) 025010 000036 RETRY ; PRESENT RETRY NUMBER 

(1) 025012 o00040 BDA "DISK ADDRESS CONTENTS 

(1) 025014 000042 BMP [PRESENT MULTIPURPOSE CONTENTS 

(1) 025016 o00044 FUNC ;LAST FUNCTION LOADED 

(1) 025020 o000%6 BCSADR :C(SR IMAGE OF LAST COMMAND 

(1) 025022 oo00SO0 LSTHDR ;LAST POSITION ON DISK 

(1) 025024 000052 RTYPE ;ERROR ON WHICH RECOVERY 1S IN PROGRESS 

(1) .025026 000054 SKCNTI ; SEEK COUNT LOW ORDER 

(1) 025030 o00056 PRFLGS :PROGRAM INTERNAL FLAGS 

(1) 025032 000060 RXFR3 :READ COUNT THIRD 

(1) 025034 000062 WXFR3 ;WRITE COUNT THIRD 

(1) 025036 000064 LSTDA ;DISK ADDRESS OF SOFT ERROP 

(1) 025040 00066 DIFC ;LAST DIFFERENCE WORD OF SEEK 

(1) 025042 000070 DPHOUR : TIME DRIVE WAS DROPPED 

(1) 025044 000072 TRERR ; TRACKING ERROR COUNT 

(14) 025046 oo0074 © DATCER : 

(1) 025050 00G076 DOWCK SWRITE CHECK NECESARY 

(1) 025052 000100 SERNM1 ; SERIAL NUMBER OF CARTRIDGE 

(1) 


025054 000102 SERNM2 / SERIAL NUMBER OF CAPTRIDGE 








H 8 
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“7 
OZRLEA. P11 = 14-NOV-77 14: 04 DRIVE INFORMATION BUFFERS SEQ 0098 | 
| 

(1) 025056 000104 OCS CSR ADDRESS | 

(1) 025060 000106 DRSEL ;ORIVE SELECT BITS(8, 9, 10) 

(1) 025062 000110 BBA ‘ ;PRESENT BUS ADDRESS CONTENTS 

(1) 025064 000112 BSECPT ;POINTER TO BAD SECTOR FILE 

(1) 025066 000114 RSEEK 

(1) 025070 000116 SOF TCS ;CSR AT TIME OF SOFT ERROR 

(1) 026072 000120 PRPOS ;PRESENT POSITION ON DISK | 

( 

(1) 

(1) 025074 000006 SKCNT ;SEEK OPERATION COUNT 

(1) 025076 000002 RXFR! ;READ OPERATION COUNT (BITS) LOW ORDER 

(1) 025100 oo00c4 RXFR2 HIGH ORDER 

(1) 025102 00006 WXFR 1 WR ITE OPERATION COUNT (BITS) LOW ORDER 

(1) 025104 000010 WRF R2 HIGH ORDER 

(1) 026106 000012 ERRCNT ;ERROR COUNT - HARD 

‘4s 025110 000014 SFTCNT ERROR COUNT - SOFT 

(1) 025112 000016 SKECNT ; SEEK ERROR COUNT 

(1) 025114 000020 DERCNT DRIVE ERROR COUNT 

(4) 02511@ 000022 DCRCER DATA CRC ERROR COUNT 

(14) 025120 000024 HCRCER ;HEADER CRC ERROR COUNT 

(1) 025122 000026 DLTCNT DATA LATE ERROR COUNT 

(1) 025124 000030 OPICNT OPERATION INCOMPLETE ERROR COUNT 

(1) 025126 000032 _ HNFERR ; HEADER NOT FOUND ERROR COUNT 

(1) 025130 000034 NXMCNT ;NON EXISTANT MEMORY ERROR COUNT 

(1) 025132 000036 RETRY ; PRESENT RETRY NUMBER 

(1) 025134 000040 BDA “DISK ADDRESS CONTENTS 

(1) 025136 000042 BMP ; PRESENT MULTIPURPOSE CONTENTS 

(1) 025140 00044 FUNC ;LAST FUNCTION LOADED 

(1) 025142 000046 BCSADR CSR IMAGE OF LAST COMMAND 

(1) 025144 000050 LSTHOR LAST POSITION ON DISK 

(1) 025146 000052 RTYPE ERROR ON WHICH RECOVERY IS IN PROGRESS 

(1) 025150 000054 SKCNTI SEEK COUNT LOW ORDER 

(1) 025152 000056 PRFLGS PROGRAM INTERNAL FLAGS 

(1) 025154 000060 | RXFR3 ;READ COUNT THIRD 

(1) 025156 000062 WXFR3 WRITE COUNT THIRD 

(1) 025160 000064 LSTOA DISK ADDRESS OF SOFT ERROR 

(1) 025162 000066 DIFUD ;LAST DIFFERENCE WORD OF SEEK 

(1) 025164 090070 DPHOUR ; TIME DRIVE WAS DROPPED 

‘1 025166 000072 TRERR ; TRACKING ERROR CCUNT 

1) 025170 000074 DATCER 

(1) 026172 000076 DOWCK ;WRITE CHECK NECESARY 

(1) 025174 000100 SERNM1 SERIAL NUMBER OF CARTRIDGE 

(1) 025176 000192 3ERNM2 ; SERIAL NUMBER OF CARTRIDGE 

(1) 025200 000104 OCS CSR ADDRESS 

(1) 025202 000106 ORSEL DRIVE SELECT BITS(8, 9, 10) 

(1) 025204 000110 BBA PRESENT BUS ADDRESS CONTENTS 

(1) 025206 000112 BSECPT :POINTER TO BRD SECTOR FILE 

(1) 025210 000114 RSEEK 

(1) 025212 o0Q116 SOF TCS CSR AT TIME OF SOFT ERROR 

(1) 025214 000120 PRPOS PRESENT POSITION ON DISK 

i 

tqo , 

(1) 025216 o00000 SKCNT > SEEK OPERATION COUNT 

(1) 025220 006902 PXFRI :READ OPERATION COUNT (BITS) LOW ORDER 

(1: 25222 900004 RXFR2 "HIGH ORDER 

(}) | 


025224 o00cdne HXFR* /WRITE OPERATION COUNT «BITS: LOW ORDEP 





eee ere Ci Meee ee ee. | 
OUTEPR MACY11 30(1046) Q6-DEC-77 18:09 PAGE 89-16 


025400 000040 BOA ; rn DISk ADORESS CONTENTS 





O2PLEA. P11 14-NOV-77 14: 04 DRIVE INFORMATION BUFFERS SEQ 0099 | 
(1) 025226 0900010 WXFR2 ;" " " "HIGH ORDER | 
(1) 025230 000012 ERRCNT ;ERROR COUNT - HARD 
‘1) 025232 o00014 SFTCNT ;ERROR COUNT - SOFT 
(1) 025234 o00016 SKECNT ;SEEK ERROR COUNT 
(1) 025236 000020 DERCNT ;DRIVE ERROR COUNT 
(1) 025240 000022 DCRCER ;DATA CRC ERROR COUNT | 
(1) 025242 000024 HCRCER ;HEADER CRC ERROR COUNT 
(1) 025244 000026 DLTCNT ;DRTA LATE ERROR COUNT 
(1) 025246 000030 OP ICNT SOPERATION INCOMPLETE ERROR COUNT 
(1) 025250 000032 HNFERR ;HEADER NOT FOUND ERROR COUNT | 
(1) 025252 000034 NXMCNT :NON EXISTANT MEMORY ERROR COUNT 
(1) 025254 000036 RETRY ; PRESENT RETRY NUMBER | 
(1) 025256 occo4o BDA DISK ADDRESS CONTENTS 
(1) 025260 000042 BMP ; PRESENT MULTIPURPOSE CONTENTS | 
(1) 025262 o00044 FUNC ; LAST: FUNCTION LOADED 
‘1) 025264 O000%6 ; BCSADR [CSR IMAGE OF LAST COMMAND 
(1) 025266 000050 LSTHOR [LAST POSITION ON DISK | 
(1) 025270 000052 RTYPE ;ERROR ON WHICH RECOVERY 1S IN PROGRESS 
(1) 025272 o000054 SKCNTI ;SEEK COUNT LOW ORDER | 
(1) 025274 900056 PRFLGS / PROGRAM INTERNAL FLAGS 
(1) 025276 co0060 RXFR3 :READ COUNT THIRD | 
(1) 025300 000062 WXFR3 ;WRITE COUNT THIRD 
(1) 025302 000064 LSTDA :DISK ADDRESS OF SOFT ERROR | 
(1) 025304 000066 DIFWO ;LAST DIFFERENCE WORD OF SEEK 
(1) 025306 000070 OPHOUR - TIME DRIVE WAS DROPPED | 
(1) 025310 000072 TRERR - TRACKING ERROR COUNT 
(1) 025312 000074 DATCER 
(1) 025314 000076 DOWCK [WRITE CHECK NECESARY 
(1) 025316 000100 SERNM1 /SERIAL NUMBER OF CARTRIDGE 
(1) 025320 000102 SERNM2 -SERIAL NUMBER OF CARTRIDGE 
(1) 025322 000104 cs : CSR ADDRESS 
(1) 025324 000106 ORSEL :DRIVE SELECT BITS(8,9, 10) 

(1) 025326 000110 BBA “PRESENT BUS ADDRESS CONTENTS 
(1) 025330 000112 BSECPT -POINTER TO BAD SECTOR FILE 
(1) 025332 000114 RSEEK 
(1) 025334 000116 SOF TCS :CSR AT TIME OF SOFT ERROR 
(1) 025336 000120 PRPOS :PRESENT POSITION ON DISK 
e112 
ty) 
(1) 026340 900000 SKCNT -SEEK OPERATION COUNT 
(1) 025342 000002 RXFRI ;READ OPERATION COUNT (BITS) LOW ORDER 
(1) 025344 900004 RXFR2 “HIGH ORDER 
(1) 025346 000096 WXFR1 ;WRITE OPERATION COUNT (BITS) LOW ORDEP 
(1) 025350 000010 WXFR2 * HIGH ORDER 
(1) 025352 000012 ERRCNT ;ERROR COUNT - HARD 
(1) 025354 000014 SFTCNT >ERROR COUNT - SOFT 
(1) 025356 O00016 SKECNT :SEEK ERROR COUNT 
(1) 025360 000020 DERCNT /DRIVE ERROR COUNT 
(1) 025362 000022 DCRCER ;DATA CRC ERROR COUNT 
(1) 025364 oco024 HCRCER ;HEADER CRC ERROR COUNT 
(1) 025366 000026 . OLTCNT ;DATA LATE ERROR COUNT 
(1) 025370 000030 OP 1CNT [OPERATION INCOMPLETE ERROR COUNT 
(1) 025372 000032 HNFERR ;HEADER NOT FOUND ERROR ‘COUNT 
(1) 025374 00G034 NXMCNT :NON EXISTANT MEMORY. ERROR COUNT 
“ (1) 025376 000036 RETRY :PRESENT RETRY NUMBER 
(1) 
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025402 
025404 
025406 
025410 
025412 
025414 
025416 
025420 
025422 
025424 
025426 
025430 
025432 
0254 34 
0254 36 
025440 

25442 
025444 
025446 
025450 
025452 
025454 
025456 
025460 


025462 
025464 
025466 
025470 
025472 
025474 
025476 
025500 
025502 
025504 
025506 
025510 
025512 
025514 
025516 
025520 
025522 
025524 
025526 
025530 
025532 
025534 
025536 
025540 
025542 
025544 
025546 
025550 
025552 
025554 
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000042 
000044 
000046 
000050 
000052 
000054 
000056 
oco0e0 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000100 
000102 
000104 
000106 
000110 
C00112 
000114 
000116 
000120 


000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 
000064 
006066 
000070 
000072 


18:09 PAGE 89-17 
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J 


;PRESENT MULTIPURPOSE CONTENTS 
+LAST FUNCTION LOADED 

+CSR_ IMAGE OF LAST COMMAND 
+LAST POSITION ON DISK 

;ERROR ON WHICH RECOVERY IS IN PROGRESS 
SEEK COUNT LOW ORDER 

;PROGRAM INTERNAL FLAGS 

READ COUNT THIRD 

;WRITE COUNT THIRD 

+DISK ADDRESS OF SOFT ERROR 
+LAST DIFFERENCE WORD OF SEEK 
+ TIME DRIVE WAS DROPPED 

+ TRACKING ERROR COUNT 


;WRITE CHECK NECESARY 

;SERIAL NUMBER OF CARTRIDGE 
SERIAL NUMBER OF CARTRIDGE 
CSR ADDRESS 

;DRIVE SELECT BITS(8, 9, 10) 
*;PRESENT BUS ADDRESS CONTENTS 
;POINTER TO BAD SECTOR FILE 


CSR AT TIME OF SOFT ERROR 
PRESENT POSITION ON DISK 


> SEEK OPERATION COUNT 
7 OPERATION COUNT (BITS) LOW ORDER 
"HIGH ORDER 
; WR ITE OPERATION COUNT (BITS) LOW ORDER 


HIGH ORDER 
ERROR COUNT - HARD 
ERROR COUNT - SOFT 
> SEEK ERROR COUNT 
;DRIVE ERROR COUNT — 
DATA CRC ERROR COUNT 
;HEADER CRC ERROR COUNT 
DATA LATE ERROR COUNT 
OPERATION INCOMPLETE ERROR COUNT 
HEADER NOT FOUND ERROR COUNT 
>NON EXISTANT MEMORY ERROR COUNT 
PRESENT RETRY NUMBER 
; - DISK ADDRESS CONTENTS 
PRESENT MULTIPURPOSE CONTENTS 
+LAST FUNCTION LOADED 
>CSR IMAGE OF LAST COMMAND ‘ 
>LAST POSITION ON DISK 
ERROR ON WHICH RECOVERY IS IN PROGRESS 
SEEK COUNT LOW ORDER 
PROGRAM INTERNAL FLAGS 
READ COUNT THIRD 
WRITE COUNT THIRD 
DISK ADDRESS OF SOFT ERROR 
>LAST DIFFERENCE WORD OF SEEK 
> TIME DRIVE WAS DROPPED 
TRACKING ERROR COUNT 


SEQ 0100 





(1) 025724 00612 PRPOS »PRESENT POSITION ON DISF 
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(1) 025556 000074 DATCER 

(1) 025560 000076 DOWCK s+WRITE CHECK NECESARY 

‘1) 025562 000100 SERNM1 ;SERIAL NUMBER OF CARTRIDGE 

(1) 025564 000102 ~— SERNN2 s+ SERIAL NUMBER OF CARTRIDGE 

(1) 025566 000104 DCS CSR ADDRESS 

(1) 025570 000106 DRSEL DRIVE SELECT BITS(8, 9, 10) 

(1) 025572 000110 BBA PRESENT BUS ADDRESS CONTENTS 

(1) 025574 000112 BSECPT +PCINTER TO BAD SECTOR FILE 

(1) 025576 000114 RSEEK 

(1) 025600 000116 SOFTCS ;CSR AT TIME OF SOFT ERROR 

(13 025602 000120 PRPOS ;PRESENT POSITION ON DISK 

tj) 

(}) 

‘1) 025604 000000 SKCNT + SEEK OPERATION COUNT 

(1) 025606 000002 RXFR1 READ OPERATION COUNT (BITS) a ORDER 

(1) 025610 000004 RXFR2 HIGH ORDER 

(1) 025612 000006 WXFR 1 ; WRITE OPERATION COUNT (BITS) LOW ORDER 

(1) 025614 000010 WXFR2~ HIGH ORDER 

(1) 025616 000012 ERRCNT ; ERROR COUNT - HARD 

(1) 025620 000014 SFTCNT ERROR COUNT - SOFT 

(1) 025622 c00016 SKECNT _ + SEEK ERROR COUNT 

(1) 025624 000020 DERCNT ;DRIVE ERROR COUNT 

(1) 025626 00002 DCRCER ;DATA CRC ERROR COUNT 

(1) 025630 o00024 HCRCER ;HEADER CRC ERROR COUNT 

(1) 025632 000026 DLTCNT DATA LATE ERROR COUNT 

(1) 025634 000030 OP I CNT ‘ ; OPERATION INCOMPLETE ERROR COUNT 

(1) 025636 000032 HNFERR ;HEADER NOT FOUND ERROR COUNT 

(1) 025640 O00034 NXMCNT ;NON EXISTANT MEMORY ERROR COUNT 

(1) 025642 000036 RETRY * PRESENT RETRY NUMBER 

(1) 025644 000040 BDA rn DISK ADDRESS CONTENTS 

(1) 025646 000042 ~ ; PRESENT MULTIPURPOSE CONTENTS 

(1) 025650 000044 FUNC ; LAST FUNCTION LOADED 

(1) 925652 O00046 BCSADR 7CSR IMAGE OF LAST COMMAND 

(1) 025654 000050 LSTHOR +LAST POSITION ON DISK 

(1) 025656 000052 RTYPE >ERROR ON WHICH RECOVERY IS IN PROGRESS 

(1) 025660 000054 SKCNT1 ;SEEK COUNT LOW ORDER 

(1) 025662 000056 PRFLGS ;PROGRAM INTERNAL FLAGS 

(1) 025664 000060 RXFR3 ;READ COUNT THIRD 

(1)» 025666 000062 WXFR3 ;WRITE COUNT THIRD 

(1) 025670 O00064 LSTOA DISK ADDRESS OF SOFT ERROR 

(1) 025672 000066 DIFWO >LAST DIFFERENCE WORD OF SEEK | 

(1) 025674 000070 DPHOUR > TIME DRIVE WAS DROPPED 

(1) 025676 00007 TRERR > TRACKING ERROR COUNT 

(1) 025700 000074 DATCER 

(1) 025702 000076 DOWCK ;WRITE CHECK NECESARY 

(1) ‘025704 000100 SERNM1 >SERIAL NUMBER OF CARTRIDGE 

(1) 025706 000102 SERNM2 ; SERIAL NUMBER OF CARTRIDGE 

(1) 025710 000104 ocs CSR ADDRESS 

(1) 025712 000106 DRSEL -DRIVE SELECT BITS(8. 9, 10) 

(1) 025714 000110 BBA ; PRESENT BUS ADDRESS CONTENTS 

(1) 025716 000112 BSECPT ;POINTER TO BAD SECTOR FILE 

(1) 025720 000114 RSEEK 

(1) 025722 O00116 SOFTCS - CSR AT TIME OF SOFT ERROR | 
| 
| 
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(1) 025726 000000 SKCNT ;SEEK OPERATION COUNT 

(1) 025730 000002 RXFR1 + READ OPERATION COUNT (BITS) ne ORDER 

(1) 025732 O00004 RXFRZ HIGH ORDER 

(1) 025734 000006 WXFR1 WRITE OPERATION COUNT (BITS) Lou ORDER 

(1) 025736 000010 WXFR2Z HIGH ORDER © 

(1) 025740 000012 ERRCNT TERROR COUNT - HARD 

(1) 025742 000014 SFTCNT ;ERROR COUNT - SOFT 

(1) 025744 O00016 SKECNT ;SEEK ERROR COUNT 

(1) 025746 000020 DERCNT ; DRIVE ERROR COUNT 

(1) 025750 000022 DCRCER ;DATA CRC ERROR COUNT 

(1) 025752 000024 HCRCER ;HEADER CRC ERROR pe 

(1) 025754 000026 DLTCNT ;DATA LATE ERROR COUN 

(1) 025756 00C030 IP ICNT ; OPERATION INCOMPLETE TERROR COUNT 

(1) 025760 000032 . HNFERR ;HEADER NOT FOUND ERROR COUNT 

(1) 025762 000034 NXMCNT ;NON EXISTANT MEMORY ERROR. COUNT 

(1s 025764 000036 RETRY + PRESENT RETRY NUMBER 

(1) 025766 000040 BDA 7 DISK ADDRESS CONTENTS 

(1) 025770 000042 BMP : PRESENT MULTIPURPOSE CONTENTS 

(1) 025772 OO004% FUNC ;LAST FUNCTION LOADED 

(1) 025774 QOOo004%6 BCSADR ;CSR IMAGE OF LAST COMMAND 

(1) 025776 oc00050 LSTHOR ;LAST POSITION ON DISK 

(1) 026000 000052 RTYPE ;ERROR ON WHICH RECOVERY IS IN PROGRESS 

(1) 026002 000054 SKCNT1 ;SEEK COUNT LOW ORDER 

(1) 026004 000056 PRFLGS ;PROGRAM INTERNAL FLAGS 

(1) 026006 000060 RXFR3 ;READ COUNT THIRD 

(1) 026010 000062 WXFR3 ;WRITE COUNT THIRD 

(1) 026012 O00064 LSTDA ;DISK ADDRESS OF SOFT ERROR 

(1) 026014 000066 DIFWO ;LAST DIFFERENCE WORD OF SEEK 

(1) 026016 000070 DPHOUR ; TIME DRIVE WAS DROPPED 

(1) 026020 000072 TRERR ; TRACKING ERROR COUNT 

(1) 026022 000074 DATCER 

(1) 026024 000076 DOWCK ;WRITE CHECK NECESARY 

(1) 026026 000100 SERNM1 ; SERIAL NUMBER OF CARTRIDGE 

(1) 026030 000102 SERNM2 ; SERIAL NUMBER OF CARTRIDGE 

(1) 026032 000104 ‘ ocs >CSR ADDRESS 

(1) 026034 000106 DRSEL ;DRIVE SELECT BITS(8. 9, 10) 

(1) 026036 000110 BBA ;PRESENT BUS ADDRESS CONTENTS 

(1) 026040 000112 BSECPT ;POINTER TO BAD SECTOR FILE 

(1) 026042 000114 RSEEK 

‘1: 026044 000116 SOFTCS >;CSR AT TIME OF SOFT ERROR 

(1) 026046 000120 PRPOS ;PRESENT POSITION ON DISK 

(1) 

ei 

(1) 026050 000000 SKCNT. >SEEK OPERATION COUNT 

(1) 026052 000002 RXFR1 READ OPERATION COUNT (BITS) ay ORDER 

(1) 026054 000004 RXFR2Z - HIGH ORDER 

(1) 026056 000006 WXFR1 WRITE OPERATION COUNT (BITS) LOW ORDER 

(1) 026060 000010 WXFR2Z HIGH ORDER 

(1) 026062 000012 ERRCNT “ERROR COUNT - HARD 

(1) 026064 000014 SFTCNT ;ERROR COUNT - SOFT 

(1) 026066 000016 SKECNT >; SEEK ERROR COUNT 

(1) 026070 000020 DERCNT ; DRIVE ERROR COUNT 

(1» 026072 000022 DCRCER >DATA CRC ERROR COUNT 

(1) 026074 006024 HCRCER ;HEADER CRC ERROR COUNT 

(1) 026076 000026 : OL TCNT ;DATA LATE ERROR COUNT 

(1) 026100 000030 OP ICNT ;OPERATION INCOMPLETE ERROP COUNT 
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026102 
026104 
026106 


026110 
026112 


026170 


026172 


026174 
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000032 
000034 
000036 
000040 
000042 
000044 
000046 
oc0050 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000100 
000102 
000104 
000106 
000110 
000112 
000114 
000116 
000120 


000000 


026174 | 


026174 


026176 
026176 
026200 
026202 
026204 
026204 
026206 
026210 
026212 
026214 
026214 
026216 
026220 
026222 
026224 
026224 
026226 


000025 


004130 
‘026250 
000091 


000031 
026255 
160000 
177776 


001031 
026302 
000000 
000776 


002032 
026271 


18:09 PAGE 89-20 

DRIVE INFORMATION BUFFERS. 
HNFERR HEADER NOT FOUND ERROR COUNT 
NXMCNT NON EXISTANT MEMORY ERROR COUNT 
RETRY + PRESENT RETRY NUMBER 
BDA DISK ADDRESS CONTENTS 
BMP ; PRESENT MULTIPURPOSE CONTENTS 
FUNC +LAST FUNCTION LOADED 
BCSADR CSR _ IMAGE OF LAST COMMAND 
LSTHOR +LAST POSITION ON DISK 
RTYPE ERROR ON WHICH RECOVERY IS IN PROGRESS 
SKCNT1 + SEEK COUNT LOW ORDER 
PRFLGS PROGRAM INTERNAL FLAGS 
RXFR3 READ COUNT THIRD 
WXFR3 WRITE COUNT THIRD 
LSTDA DISK ADDRESS OF SOFT ERROR 
DIFWO +LAST DIFFERENCE WORD OF SEEK 
DPHOUR + TIME DRIVE WAS DROPPED 
TRERR + TRACKING ERROR COUNT 
DATCER 
DOWCK ;WRITE CHECK NECESARY 
SERNM1 SERIAL NUMBER OF CARTRIDGE 
SERNN2 SERIAL NUMBER OF CARTRIDGE | 
OCS CSR ADDRESS 
ORSEL ;DRIVE SELECT BITS(8, 9. 10) 
BBA PRESENT BUS ADDRESS CONTENTS 
a ay POINTER TO BAD SECTOR FILE 
RSEEK ‘ 
SOF TCS CSR AT TIME OF SOFT ERROR 
PRPOS ;PRESENT POSITION ON DISK 

.NLIST ME 


ENDBUF: .WORD OQ 


BGNMOD HRDPRM 


BGNHRD 
. WORD L10024-LSHARD/2 


GPRML CNTYPE.CNT,1, YES 
.WORD TSCODE 
.WORD = CNTYPE 


.WORD 1 
GPRMA CSRMSG. CSR, 0, 160000, 177776. YES 
.WORD TSCODE 


.WORD CSRNSG 

.WORD TSLOLIM 

.WORD TSHILIM 

GPRMA VECMSG. VECT. 0,0. 776, YES 
TSCODE 


.WORD VECNSG 

.WORD TSLOLINM 

.WORD  TSHILIM 

GPRMD BRMSG. PRIOR, 0, 340.0, 7. YES 
.WORD f$CODE 

. WORD  BRMSG 


| 
| 
SEQ 0103 | 
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026230 
026232 
026234 
026236 
026236 
026240 
026242 
026244 
026246 


026250 
026250 


026250 
026255 


026302 
026311 


026320 
026320 


026320 
026320 


026322 
026322 
026324 
026326 
026330 
026332 
026334 
026334 
026336 
026340 
026342 
026344 
026346 
026346 
026350 
026352 
026354 
026354 
026356 
026356 
026360 
026362 
026364 
026366 
026370 


06-DEC-77 


14-NOV-77 14: 04 


000340 
000000 
000007 


003032 
026311 
003400 
000000 
000007 


046122 
102 
102 

042526 
104 


026320 


006217 


000052 
027165 
177777 
000000 
17777 


031052 


027010 
177777 
000000 
177777 


020136 
027472 
000061 


006044 


032052 
027027 
177777 
006000 
000200 


030461 
051525 
020122 
052103 
044522 


000 
040440 
042514 
051117 
042526 
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DRIVE INFORMATION BUFFERS 


L10024: 


CNTYPE: 
CSRMSG: 


BRNMSG: 


VECMSG: 


DRMSG: 


. EVEN 


BGNNOD 


53: 


. 340 
.WORD TSLOLIM 


.WORD TSHILIM 

GPRND ORNMSG. ORBT. 0.03400, 0. 7. YES 
.WORD TSCODE 

.WORD ORMSG 

.WORD 03400 

.WORD TSLOLIN 

.WORD  TSHILIM 


. EVEN 


-ASCIZ /RLI1/ 

“ASCIZ /BUS ADDRESS/ 
/ASCIZ /BR LEVEL/ 
“ASCIZ /VECTOR/ 
“ASCIZ /ORIVE/ 


ENOMOD 
SFTPRM 


BGNSF T 
WORD L10025-LSSOFT/2 


GPRMD RTMSG.RLT. 0, 177777.0. 177777. YES 
.WORD TSCODE 


“, WORD RTMSG 


-WORD = 177777 

.WORD  TSLOLINM 

.WORD TSHILIM 

GPRMD SRTMSG, SRLT.D.177777.0, 177777, YES 

.WORD TSCODE 

.WORD SRTNSG 

.WORD = 177777 

.WORD TSLOLIM 

-WORD = TSHILIMN | 

GPRML FOCHK.OCKFG, 1. YES 
TSCODE 


. WORD 

.WORD FOCHK 

.WORD 1 ) 
XFERF 


5$ 

.WORD TSCODE 

GPRMD = =CHKLMT, CLNT. 0. 177777.0,.128. - YES 
.WORD TSCODE 

.WORD = CHKLMT 

WORD = 177777 

.WORD TSLOLIM 

-WORD  TSHILIM 

GPRMD =INMSG, TYT.D,177777.1.177777. YES 


SEQ oat 


Oa ama Tai 


8 9 
OUTERR MACY11 30(1046) O6-DEC-77 18:09 PAGE 89-22 
DZRLEA. P11 14-NOV-77 14: 04 DRIVE INFORMATION BUFFERS SEQ 0105 

(4) 026370 005052 .WORD TSCODE 
(4) 026372 027275 .WORD = INMSG 
(4) 026374 177777 .WORD = 177777 
(4) 026376 000001 .WORD TSLOLIM 
(4) 026400 177777 .WORD = TSHILIM 

5857 026402 GPRML ORPMS.ORFLG, 1, YES 
(4) 026402 021130 .WORD TSCODE 
(4) 026404 027553 .WORD DRPMS 
(4) 026406 000001 .WORD 1 

5858 026410 XFERF 
(5) 026410 032044 .WORD TSCODE 

5859 026412 GPRMD ERNSG.ELT.D, 177777.0,177777. YES 
(4) 026412 001052 .WORD TSCODE 
(4) 026414 027101 .WORD ERNSG 
(4) 026416 177777 -WORD =177777 
(4+ 026420 900000 .WORD TSLOLIM 
(4) 026422 177777 .WORD  TSHILIM 

5860 026424 GPRMD SFTMSG, SEL, D,177777,0,177777, YES 
(4) 026424 023052 .WORD TSCODE 
(4) 026426 027115 .WORD SFTNSG 
(4) 026430 177777 .WORD = =177777 
(4) 026432 900000 .WORD TSLOLIM 
(4) O26434 177777 .WORD TSHILIM 

5861 026436 GPRMD OERPNS, OCD. D.177777,0.177777, YES 
(4) 026436 036052 .WORD TSCODE 
(4) 026440 027616 .WORD DERPNS 
(4) 026442 177777 .WORD = 177777 
(4) 026444 Q00000 .WORD TSLOLIM 
(4) O26446 177777 .WORD TSHILIM 

5862 026450 GPRMD SEMSG, SET. D.177777.0.177777, YES 
(4) 026450 002052 .WORD TSCODE 
(4) 026452 027177 .WORD SEMSG 
(4) 026454 177777 .WORD = 177777 
(4) 026456 000000 .WORD  TSLOLIM 
(4) 026460 177777 .WORD TSHILIM 

5863 026462 GPRMD OREMSG. DET.0.1°7777.0. 177777, YES 
(4) 026462 025052 .WORD TSCODE 
(4) O026464 027212 .WORD ORENSG 
(4) 026466 177777 -WORD = =177777 
‘4 026470 000000 .WORD TSLOLIM 
(4) 026472 177777 .WORD TSHILIM 

5864 026474 3$: GPRML STLMT. OPFLG.1. YES 
(4) 026474 024130 . WORD TSCODE 
(4) 026476 027516 .WORD = STLMT 
(4) 026500 000001 .WORD 1 

5865 026502 XFERF 2% 
(5) 026502 013044 .WORD TSCODE 

5866 026504 GPRMND DAMSG, DAT.D,177777,1,177776. YES 
(4) 026504 003052 .WORD TSCODE 
(4) 026506 027225 .WORD DANSG 
(4) 026510 177777 -WORD = 177777 
(4) 026512 000001 .WORD TSLOLIM 
(4) 026514 177776 .WORD  TSHILIM 

5867 026516 GPRMD SKMSG, SKT.0.177777.1,177776. YES 
(4) 026516 004052 .WORD TSCODE 


(4) 026520 027255 - WORE = SKMSG 
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026522 
026524 
026526 
026530 
026530 
626532 
026534 
026536 
026536 
026540 
026540 
026542 
026544 
026546 
026546 
026550 
026550 


026646 


177777 
000001 
177776 


010130 
027325 
000001 


106044 


034130 
026760 
00c001 


013044 


011052 
027361 
177777 
000003 
012000 


B22052 


012000 


026130 
027047 
000001 


027130 
027057 
000001 


006024 


030032 
027067 
000017 
000000 
000097 


035130 
027607 
000001 


006052 
027644 
177777 
000000 
000200 


007052 
027131 


06-DEC-77 


23: 


0: 


45: 


7%: 
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. # 


177777 - 
TSLOL IM 


TSHILIM 

CHANGE, CHFLG. 1, YES 
TSCODE 

“pore 


TSCODE 
STIPMS.STIP, 1, YES 
TSCODE 

STIPMS 

1 


6$ 
TSCODE 
MXBUF, MXB. 0D, 177777, 3,5120.. YES 
TSCODE 


MXBUF 2 


TSHILIM 

MINBUF, MNB, 0.177777. 3.,5120.. YES 
TSCODE 

MiNBUF 

177777 

TSLOLIM 

TSHILIM 
RDONLY, ROF. 1, YES 

TSCODE 

RDONLY 

1 

RANPAT, RAN, 1, YES 

TSCODE 

RANPAT 

1 

4$ 

TSCODE 

ONLONE, PAT.0,17.0.7. ES 
TSCODE 

ONL ONE 


TSHILIM 
WCKMSG, WCK, 1. YES 
TSCODE 

waren 


TSCODE 

CMMSG 

177777 

TSLOLIM 

TSHILIM 

DEMNSG. DOT. 0.177777.0.175. YES 
TSCODE 

DENSG 


SEQ 0106 


7 


‘ 
— 


